Исходное сообщение
"regexp  + UTF-8 = не работает" Отправлено Аноним но другой, 13-Мрт-09 01:52
>man perluniintro >man perlunifaq >man perlunitut >man perlunicode >Можно начать с попытки добавлять >use utf8; >use open ':encoding(utf8)'; >utf8::upgrade($infile); >Если не получится, то придется таки читать. Добавил, теперь скрипт выглядит так: $ less report.pl #!/usr/bin/perl use utf8; use open ':encoding(utf8)'; utf8::upgrade($infile); open(DATA,'file.txt'); my $infile = <DATA>; close DATA; while($infile =~ m/([А-Яа-я]+)/gi) {         print "$1\n"; } $ less file.txt "Администратор" "Марфа Васильевна" $ ./report.pl Wide character in print at page.analyser_simplified.pl line 12. Администратор Wide character in print at page.analyser_simplified.pl line 12. Марфа Wide character in print at page.analyser_simplified.pl line 12. Васильевна Работает!! Спасибо. Осталось теперь тока разобраться с руганью про wide character. завтра почитаю. спасибо.

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>man perluniintro >>man perlunifaq >>man perlunitut >>man perlunicode >>Можно начать с попытки добавлять >>use utf8; >>use open ':encoding(utf8)'; >>utf8::upgrade($infile); >>Если не получится, то придется таки читать. > Добавил, теперь скрипт выглядит так: > $ less report.pl > #!/usr/bin/perl > use utf8; > use open ':encoding(utf8)'; > utf8::upgrade($infile); > open(DATA,'file.txt'); > my $infile = <DATA>; > close DATA; > while($infile =~ m/([А-Яа-я]+)/gi) { > print "$1\n"; > } > $ less file.txt > "Администратор" "Марфа Васильевна" > $ ./report.pl > Wide character in print at page.analyser_simplified.pl line 12. > Администратор > Wide character in print at page.analyser_simplified.pl line 12. > Марфа > Wide character in print at page.analyser_simplified.pl line 12. > Васильевна > Работает!! Спасибо. Осталось теперь тока разобраться с руганью про wide character. > завтра почитаю. спасибо.
	Введите код, изображенный на картинке: