GNU Midnight Commander - 4.6.1-pre5

Re: GNU Midnight Commander - 4.6.1-pre5

Мерить разницу по sys+user не совсем верно, ведь sys из ФС читает и т.д.
А одному user (тут разница вообще в 510 раз) возможно тоже не то. Истина
посредине, но разница все равно в сотни раз.
Хотел еще perl потестить, но жара еще не спала ;-)
Да и не пользусь UTF, а потому не знаю как в нем искать.
В ср1251 или коях просто:

use POSIX qw(locale_h);
use locale;
setlocale(LC_CTYPE, "ru_RU.cp1251");

my $file = "CP1251-1.txt";

open (FILE, "< $file") or die "can't open $file: $!\n";
while (<FILE>) {
if ( m/\w{1,5} некоторые [ А-Яа-я]+\?/i) {
print "НАЙДЕНО!!!\n";
}
}

и вперед.
А вот в UTF8
setlocale(LC_CTYPE, "utf8"); не помогло.

Re: GNU Midnight Commander - 4.6.1-pre5

в Perl'e есть прагмы "use utf8" & "no utf8", для перекодирования библиотека Encode

vadiml (11.07.2005 12:51:28)

Re: GNU Midnight Commander - 4.6.1-pre5

> в Perl'e есть прагмы "use utf8" & "no utf8"

Лучше бы их не было... Такой бардак в Perl с юникодом... Утешает то, что в других языках еще хуже.