Доброго времени суток всем,
Имеется нужда добиться русских букв в stdout
Отсюда How to ???

на сколько я понимаю тебе надо перед вывдодм текста в стдоут конвертнуть из одной кодировки в другую

почитай про транслитерацию tr

Это сообщение отредактировал(а) chaos - 16.6.2005, 07:06

Скорее всего программируешь под Windows, все дело в том, что в консоле кодировка oem866, а ты пишешь наверное под Win1251. Выхода 2: или пиши под oem866 или если нужно получить просто понятное русское сообщение в консоле перенаправляй весь вывод в файл:

Код

perl script.pl > temp.txt

А проще всего на мой взгляд выучить английский

Цитата(Ivan @ 16.6.2005, 07:05)

Скорее всего программируешь под Windows

Да

Цитата(Ivan @ 16.6.2005, 07:05)

А проще всего на мой взгляд выучить английский

Я то его знаю прекрасно (довелось пожить за рубежом), а вот что делать с юзерами ?!

> а вот что делать с юзерами ?!
perldoc Tk - самое сложное решение, юзвери-то еще и не консольные ;)

Цитата(nerezus @ 16.6.2005, 13:17)

юзвери-то еще и не консольные ;)

Юзверю надо вывести сообщение в консоли после отработки программы, мол так и так выполнено успешно или нет
Добавлено @ 13:53

Цитата(nerezus @ 16.6.2005, 13:17)

perldoc Tk

Сенкс буду изучать

>Юзверю надо вывести сообщение в консоли после отработки программы, мол так и так выполнено успешно или нет
опс, я вроде прогнал... =( в Tk они тоже кракозябликами... =(

Вобщем, что бы больше не возникало такого вопроса написал такой маленьки модуль, который перегоняет строки в DOS кодировку и обратно. Документировать его я не стал, потому как пользоваться им достаточно легко. Внизу сообщения прикреплён файл, качаешь его, распаковываешь, затем распакованный файл Decoder.pm кидай в библиотечный каталог:

Если ты не знаешь какой каталог является библиотечным, то введи в командной строке такую команду:

C:\>perl -V

После чего в самом низу увидишь примерно такие строки:

Цитата

@INC:      C:/Perl/usr/lib      C:/Perl/usr/site/lib

Вот это и есть библиотечные каталоги. Теперь кидаешь в один из этих каталогов файл Decoder.pm
С этого момента модуль будет готов к использованию.

Открывем редактор и пишем такую программу:

Код

#!/usr/bin/perl use Decoder; # Объявим сразу массив и строку, с кирилицей. Они нам понадобятся для теста. my @names = qw( Денис Антон Елена Светлана ); $str = "Это просто строка"; # Для начала выведем в STDOUT значение скалярной переменной $str print to_dos "$str\n"; # Это просто разделитель, на него не обращаем внимания print "-" x 80, "\n"; # Теперь выведем массив в STDOUT print to_dos join("\n", @names) . "\n"; # Это просто разделитель, на него не обращаем внимания print "-" x 80, "\n"; # Если мы результат декодирования сохранить в массиве, то пишем так: my @dos_names = to_dos \@names; print "@dos_names\n"; # Это просто разделитель, на него не обращаем внимания print "-" x 80, "\n";

Если необходимо перевести строку в win1251, то делаем это точно так же, как и в примере выше, только вместо to_dos пишем to_win.

Удачи.

Зы: Предлагаю совместными усилиями доделать этот модуль, т.е. добавить конвертацию строки и в другие известные кодировки, документировать его в POD формате. После чего выложим его в раздел Исходники, который находится рядом с FAQ. Я конечно могу и сам это сделать, но тогда придётся подождать, так как времени сейчас практически нет, потому, пока, могу лишь поувствовать вместе с вами.

Это сообщение отредактировал(а) korob2001 - 16.6.2005, 19:07

Присоединённый файл ( Кол-во скачиваний: 16 )
 Decoder.zip 0,36 Kb

korob2001 Впереди планеты всей !!!
Спасибо !!!

А можно про модуль по подробней?
что означает вот этот регексп?

Код

$str =~ y/\200-\257\340-\361/\300-\377\250\227/;

Это не регексп, это транслитерация подобная tr///; Здесь сложного ничего нет, транслитерация проходит строку символ за символом и заменяет его на соответствующий, который стоит во второй его части.
Например если есть строка Hello, нам нужно перевести все буквы l, в верхний регистр.:

Код

#!/usr/bin/perl -w $str =  "Hello"; $str =~ tr/l/L/; print $str;

Вобщем tr/// и y/// это одно и то же.

Это сообщение отредактировал(а) korob2001 - 19.6.2005, 11:18

korob2001, а ты бы не мог выложить сюда листинг модуля. А то что-то ваши правила по скачиванию... :(((((((

Цитата

korob2001, а ты бы не мог выложить сюда листинг модуля. А то что-то ваши правила по скачиванию... ((((((

Пожалуйста:

Код

package Decoder; require Exporter; push( @ISA, 'Exporter' ); @EXPORT = qw( to_dos to_win ); @EXPORT_OK = qw(); sub to_win {     my $str = shift;     if ( ref( $str ) ) {          y/\200-\257\340-\361/\300-\377\250\227/ for @$str;     } else {          $str =~ y/\200-\257\340-\361/\300-\377\250\227/;     }     return (wantarray && ref( $str )) ? @$str : $str; } sub to_dos {     my $str = shift;     if ( ref( $str ) ) {          y/\300-\377\250\227/\200-\257\340-\361/ for @$str;     } else {          $str =~ y/\300-\377\250\227/\200-\257\340-\361/;     }     return (wantarray && ref( $str )) ? @$str : $str; } 1;

korob2001, я так понимаю, что "\200" - это код символа, а "-" перечистение, типа 0..9?

Да. Если запустить этот код на выполнение,

Код

#!/usr/bin/perl -w use strict; #print "\320" x 15, "\n"; print "\317\320\310\302\305\322 \314\310\320\n";

на выходе получишь строку "ПРИВЕТ МИР!"

Это сообщение отредактировал(а) korob2001 - 20.6.2005, 12:42