|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrew Alakozow 2:5061/6 13 Dec 2006 12:12:35
To : All
Subject : Re: русский, utf8 больш
--------------------------------------------------------------------------------
> локаль С (на сервере работает приложение)
> строки UTF
>
> #!/usr/bin/perl
> $name='тест';
>
> while (<>)
> {
> /$name/i and print $_;
> }
>
> почему-то строки со словом 'Тест' не находит.
>
> по идее работая с юникодом он должен бы без какого-то явного указания
> отличать большие от маленьких?
>
> что поправить чтобы работало правильно?
# Если Perl 5.8
use encoding 'utf8';
$name='тест';
while (<>)
{
print if /$name/i;
}
# Если Perl 5.6
use utf8;
$name='тест';
while (<>)
{
utf8::decode($_);
print if /$name/i;
}
--
Андрей.
--- Mozilla Thunderbird 1.0.7 (X11/20060123)
* Origin: Life In The Dark (2:5061/6)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
