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

[Pavel_kz]

Помогите плиз начинающему!
проблема в следующем:
у меня прога выполняет поиск соответствия по шаблону в массиве, строки которого написаны на русском, причём все буквы заглавные.
шаблон поиска вводится с консоли ручками. Мне необходимо добиться чтобы поиск по шаблону работал независимо - большими буквами или маленькими набирали этот шаблон. m/ $value/i - не работает с русскими символами. также как и не работает функция uc.

как этого можно сделать????

весь код проги представлен ниже


#!usr/bin/perl -w
open (VREM, "part1.txt")|| die "FILE NOT FOUND!!!" ;
@allrnn=<VREM>;
close (VREM);

START:{
print "Введите ЗН-НИЕ\n";

$value= <STDIN>;
chomp $value;
$rnn_h="";
foreach $rnn(@allrnn)
{
if ($rnn =~ /$value/)

{

$rnn_h=$rnn;
print "$rnn_h\n";
}
}
if( !$rnn_h)
{ print "\n\ Искомого ЗН-НИЯ нет в базе данных!\n";
}

redo START;
}

[FUKS]

По смыслу (могу и ошибаться):

$str=~tr/а-я/А-Я/; # Для кодировки с неразрывной кодовой таблицей типа Win-1251
$str=~tr/а-пр-я/А-ПР-Я/; # Для DOS - с разрывом таблицы