perl utf8 regexp

0

1

И снова utf8;
Не отрабатывает regexp!
utf8.pl:

#!/usr/bin/perl -w
use utf8;
foreach (<*>) {
    my $str = $_;
    $str=~s/^(\w).*/$1/;
    print "$str\n";
}

файлы в дирректории:

utf8.pl
привет.doc

выводит:

# ./utf8.pl
привет.doc
u

perl v5.10.1
система utf8.

←	В какой СУБД хранить сложные структуры данных?

→

#!/usr/bin/perl -w
use utf8;
foreach (<*>) {
    utf8::decode($_);
    my $str = $_;
    $str=~s/^(\w).*/$1/;
    print "$str\n";
}

Perl не знает в какой кодировке имена файлов в файловой системе. Поэтому ему нужно об это явно указать.

Olegymous ★★★
(13.02.13 12:01:50 MSK)

Ответ на: комментарий от Olegymous 13.02.13 12:01:50 MSK

благодарю!

lioncub ★★
(13.02.13 12:35:22 MSK) автор топика

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.

←	В какой СУБД хранить сложные структуры данных?

→

Похожие темы