ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry E. Oboukhov                   2:5004/75.151  13 Dec 2006  13:41:11
 To : Andrew Alakozow
 Subject : русский, utf8 больш
 -------------------------------------------------------------------------------- 
 

 AA> use encoding 'utf8';
 
 что-то не работает:
 
 dwork:[/home/dimka/tmp]$ cat test.pl
 #!/usr/bin/perl
 
 use warnings;
 use strict;
 use encoding 'utf8'; # use encoding 'utf-8';
 my $name='тест';
 
 while (<>)
 {
   /$name/i and print $_;
 }
 dwork:[/home/dimka/tmp]$ cat 2
 тест
 ТЕСТ
 тЕСТ
 Тест
 нет
 dwork:[/home/dimka/tmp]$ locale
 LANG=ru_RU.UTF-8
 LC_CTYPE="ru_RU.UTF-8"
 LC_NUMERIC="ru_RU.UTF-8"
 LC_TIME="ru_RU.UTF-8"
 LC_COLLATE="ru_RU.UTF-8"
 LC_MONETARY="ru_RU.UTF-8"
 LC_MESSAGES="ru_RU.UTF-8"
 LC_PAPER="ru_RU.UTF-8"
 LC_NAME="ru_RU.UTF-8"
 LC_ADDRESS="ru_RU.UTF-8"
 LC_TELEPHONE="ru_RU.UTF-8"
 LC_MEASUREMENT="ru_RU.UTF-8"
 LC_IDENTIFICATION="ru_RU.UTF-8"
 LC_ALL=
 dwork:[/home/dimka/tmp]$ perl test.pl 2
 dwork:[/home/dimka/tmp]$
 а если use encoding убрать, то выводит 'тест'.
 
 perl 5.8.8, Debian/Etch
 
 в книжке вообще написано что perl типа сам распознает юникод и с ним
 работает без допуказаний :(
 и что делать, куда дальше рыть?
 
 perldoc encoding курю, но что-то не вкуриваю видимо.
 
 --- Mutt/1.5.13 (2006-08-11)
  * Origin: Слабый пол сильнее сильного в силу слабости сильного пола к слабому
 (2:5004/75.151)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    русский, utf8 больш   Dmitry E. Oboukhov   13 Dec 2006 13:41:11   Re: русский, utf8 больш   Andrew Alakozow   13 Dec 2006 14:46:14