Архив форумов ЦИТФорума

[Pavel_kz]

Спаcибо Дмитрию Арсентьеву за все предыдущие ответы, особенно за найденую "очепятку" standarD. Я обязательно воспользуюсь советом по убыстрению работы проги в ближайшее время.

Но, сейчас для полного счастья мне необходимо чтобы для юзера вводящего значение с клавиатуры поиск соответствия по шаблону не зависел от регистра введёных символов(массив содержит строки из символов на русском языке, при чём все они заглавные!!!)
Как оказалось, =~ /$value/i не работает c русскими символами,
также как не работает функция uc.
как же быть, не откажите в помощи, мне действительно не к кому обратиться !!!???


#!e:/perl/bin -w
use strict;
use CGI ':standard';


open (VREM, "<c:/Inetpub/scripts/part1.txt") || die
"can not open VREM $!\n";

my @allrnn;
@allrnn=<VREM>;
close (VREM) || die "can not close VREM $!\n";

my $value;
my $rnn;

$value = param("RNN_form"); #это значение брётся из формы запроса
#(метод post)

print "Content-type: text/html\n\n";

foreach $rnn(@allrnn) {
if ($rnn =~ /$value/) { print "$rnn\n"; } #fi
}#end foreach

[Pavel_kz]

спасибо, я конечно рад узнать что существует модуль cyrillic.pm,
но вот незадача, у меня то его и нет,
может есть другие способы?
Если нет то подскажите где его можно взять в инете...
Please!

[Pavel_kz]

Буду рад если Вы вышлите мне сей модуль на адрес pavel_home@shym.kz
Кстати, после его распаковки его нужно просто добавить в lib ?
или требуется ещё что- нибудь???