|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : John Smith 2:5020/52 22 Sep 2000 15:58:55
To : All
Subject : Case-insensetive search
--------------------------------------------------------------------------------
Вот пытаюсь сделать case-insensetive поиск в win-1251-текстовом файле, и
нифига у меня не получается:
foreach (@{$keywords}) {
if ($line =~/$_/i) {
bla-bla-bla
last;
}
}
Я, конечно, выкрутился, перевел текст в нижний регистр:
foreach (@{$keywords}) {
$line =~tr/\xC0-\xDF/\xE0-\xFF/;
$_ =~tr/\xC0-\xDF/\xE0-\xFF/;
if ($line =~/$_/i) {
bla-bla-bla
last;
}
}
Hо может быть есть другое решение?
--
Have fun!!
John Smith mailto:crazyrol@mail.ru
http://offspring.ru.ru
--- Mozilla 4.7 [en] (Win98; I)
* Origin: Mr. Postman (2:5020/52.0)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
