Всем снова привет!! Вы наверное знаете мою прогу, которую я накропал месяц назад,(ВСЕМ ОГРОМНОЕ СПАСИБО ЗА ВНИМАНИЕ КО МНЕ И МОЕЙ ПРОГЕ: Важный Вопрос 0.1 by ZLOvar)[И ОГРОМНЕЙШЕЕ СПАСИБО ВСЕМ ТЕМ, КТО ПОЖЕРТВОВАЛ МНЕ ДЕНЬГИ, НА РАЗВИТИЕ ПРОГИ!!!$$$] , так вот, я решил сделать её продолжение: Out_of_Questions_0.2_by_ZLOvar, и столкнулся с проблемой, мой перл не воспроизводит РУССКИЙ текст, когда я его пишу:

Код

#!/bin/usr/perl $hello="Всем привет!"; print $hello; $name = <STDIN>;

Вот, а он выдаёт у меня какие-то иероглифы!((((((((

И мне приходится писать вот так:

Код

#!/bin/usr/perl $hello="Vsem Privet!"; print $hello; $name = <STDIN>;

  
(как это было в прошлой версии)

Как сделать так, чтобы перл печатал и на русском? Спасибо.

Код

#!/bin/usr/perl $hello="Всем привет!"; print $hello; $name = <STDIN>;

Код

#!/bin/usr/perl $hello="Vsem Privet!"; print $hello; $name = <STDIN>;

Кошмар с кодировкой

На этом  http://www.perl-express.com/ru/download.html у меня Perl пишет Русскими буквами

Цитата(ZLOvar @  19.6.2009,  18:15 )

мой перл не воспроизводит РУССКИЙ текст

Проблема вовсе не в перле. На линухе все было бы нормально. Наверное, у Вас винда... Это у нее кодировка консоли отличается от кодировки всего остального, в итоге проблемы (а еще концы строк файлов на диске и в оперативной памяти различаются, что добавляет геморроя). Всё общение с cmd на русском нужно перекодировать:

Код

#!/usr/bin/perl use Encode; $hello = "Всем привет!"; Print($hello); $name = Read(); sub Print {   foreach my $str (@_) {     chomp $str;     $str = encode('cp866', decode('cp1251', $str)) if $^O eq 'MSWin32';     print "$str\n";   } } sub Read {   my $str = <STDIN>;   chomp $str;   $str = encode('cp1251', decode('cp866', $str)) if $^O eq 'MSWin32';   return $str; }

Цитата(mario315 @  19.6.2009,  21:39 )

На этом  ... у меня Perl пишет Русскими буквами

Настоятельно не рекомендую пользоваться левыми дистрибутивами для разработки скриптов общего назначения. Ниша подобных малого размера сборок -- приложить к ней свой, отлаженный именно на этой сборке, скрипт и распространять все вместе там, где нормального дистрибутива перла нет и не будет.


Это сообщение отредактировал(а) amg - 20.6.2009, 07:24

Цитата(ZLOvar @  19.6.2009,  18:15 )

мой перл не воспроизводит РУССКИЙ текст

Код

#!/usr/bin/perl use Encode; $hello = "Всем привет!"; Print($hello); $name = Read(); sub Print {   foreach my $str (@_) {     chomp $str;     $str = encode('cp866', decode('cp1251', $str)) if $^O eq 'MSWin32';     print "$str\n";   } } sub Read {   my $str = <STDIN>;   chomp $str;   $str = encode('cp1251', decode('cp866', $str)) if $^O eq 'MSWin32';   return $str; }

Цитата(mario315 @  19.6.2009,  21:39 )

На этом  ... у меня Perl пишет Русскими буквами

судя по популярности вопроса, его уже можно в faq записывать

Цитата(shamber @  20.6.2009,  10:55 )

судя по популярности вопроса, его уже можно в faq записывать

Добавил: http://base.vingrad.ru/view/3138-me

Цитата(shamber @  20.6.2009,  10:55 )

судя по популярности вопроса, его уже можно в faq записывать

 Да, и ещё вопрос по теме.
Имеются ли модули при установке и использовании которых, можно устранить прблемы с отображением кириллицы в ActivePerl для Windows.

ссылку смотреть не пробовали?

 Если эту     http://base.vingrad.ru/view/3138-me   то пробовал. В принципе, это тот же скрипт выложенный в теме выше. А где можно взять модуль Encode, используемый в данном скрипте?

Encode входит в стандартный дистрибутив.