ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      11 Jul 2001  16:42:00
 To : All
 Subject : Регистр
 -------------------------------------------------------------------------------- 
 

 
 Есть файл со списком фамилий:
 Иван ПЕТРОВ,
 Сергей СИДОРОВ,
 end
 
 Читаю его
 
 open (FILE,"<$file") or die ("Hе возможно открыть файл"); $file.\n$!\n");
  @fil=<FILE>;
 close FILE;
      foreach $list(@fil) {
       (@fio) = split(/\,\n/,$list);
      }
   $num = @fio;
 
 Затем открываю для обработки файл с текстом
 и делаю:
 
  for ($i=0; $i <$fio; $i++) {
    if ( $str eq $fio[$i]) {
     $str = "<b>$str<\/b>";
    }
  }
 
 Проблема в том, что в тексте фамилия может быть как
 Иван ПЕТРОВ, так и Иван Петров, а еще ИВАH ПЕТРОВ.
 Первая отлавливается, а другие нет.
 
 Как мне сделать регистронезависимость?
 -- Hиколай.
 * Даром - за амбаром, понял. (От Фоменко)
 ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 ---
  * Origin: Если это глупо, но работает, - значит это не глупо. (2:5056/30)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Регистр   Nikolay Pichtin   11 Jul 2001 16:42:00   Регистр   Sergey Belov   12 Jul 2001 09:05:10   Re: Регистр   Nikolay Pichtin   13 Jul 2001 01:37:44   Re: Регистр   Yuriy Kaminskiy   12 Jul 2001 15:18:40   Регистр   Aleksey Kotov   21 Jul 2001 11:41:50