[sisyphus] perl и unicode

[Alexey Tourbin]

On Fri, Apr 11, 2008 at 01:40:47PM +0400, Boris Savelev wrote:
> Здравствуйте!
> Столкнулся с проблемой использования юникода в перле, а именно (cgi тест)
> #!/usr/bin/perl -W
> use strict;
> print "Content-type: text/plain; charset=UTF-8\n\n";
> my $text;
> my $text_lc;
> $text="БОЛЬШОЙ!маленький!small!BIG!";
> $text_lc=lc($text);
> print "Env 'PERL_UNICODE' is ";
> print ${^UNICODE};
> print "\n";
> print "Run test: \n";
> print "Source text\n";
> print $text;
> print "\n";
> print "Text after LowerCase\n";
> print $text_lc;
> 
> Текст написан в UTF8.
> В таком виде тест не проходит, т.е. большие русские символы маленькими не 
> становятся, хотя с латинскими все прекрасно.
> Далее если в начале добавить:
> use utf8;
> то тест отрабатывается, но:
> Starting from Perl 5.8.0, the use of use utf8  is no longer necessary
> (http://perldoc.perl.org/perluniintro.html)

use utf8 в данном случае нужен, прочитайте 'perldoc utf8'.
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 197 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/sisyphus/attachments/20080412/66077d77/attachment-0002.bin>