Исходное сообщение
"regexp  + UTF-8 = не работает" Отправлено angra, 13-Мрт-09 02:14
Ну не все же одновременно надо было добавлять. Кроме того utf8::upgrade($infile); перед использованием my $infile вообще не имеет смысла. Используйте use strict дабы избегать таких ошибок. Попробуйте такой вариант: #!/usr/bin/perl -w use strict; use utf8; open(DATA,'file.txt'); my $infile = <DATA>; utf8::decode($infile); close DATA; while($infile =~ m/([А-Яа-я]+)/gi) {   my $s=$1;   #нельзя напрямую применять encode к $1 иначе получим бред после первой строки   utf8::encode($s);   print "$s\n"; } А вообще работа с юникодом в перле(да и в большинстве других языков) это шаманство, особенно когда много _различных_ потоков ввода/вывода.

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Ну не все же одновременно надо было добавлять. Кроме того utf8::upgrade($infile); перед > использованием my $infile вообще не имеет смысла. Используйте use strict дабы > избегать таких ошибок. > Попробуйте такой вариант: > #!/usr/bin/perl -w > use strict; > use utf8; > open(DATA,'file.txt'); > my $infile = <DATA>; > utf8::decode($infile); > close DATA; > while($infile =~ m/([А-Яа-я]+)/gi) { > my $s=$1; > #нельзя напрямую применять encode к $1 иначе получим бред после > первой строки > utf8::encode($s); > print "$s\n"; > } > А вообще работа с юникодом в перле(да и в большинстве других языков) > это шаманство, особенно когда много _различных_ потоков ввода/вывода.
	Введите код, изображенный на картинке: