ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel Kurnosoff                      2:5030/736.25  27 Oct 2000  21:59:25
 To : Artem Chuprina
 Subject : Re: замена
 -------------------------------------------------------------------------------- 
 

 
  AC> $pattern = quotemeta($pattern);
  AC> # Альтернативы
  AC> $pattern =~ s/\\\|/|/g; 
  AC> $pattern =~ s/{/(/g; 
  AC> $pattern =~ s/}/)/g;
 
 не понял, какой смысл в том, чтобы \{ превращать в \( ?
 
  AC> # Character classes
  AC> $pattern =~ s/\\([][])/$1/g;
 
 [!...] -> [^...] где? а еще есть засада по имени named character classes
 ([:digit:] и т.д.)
 
  AC> # *
  AC> $pattern =~ s/\\\*/.*/g;
  AC> # ?
 
 а вещи типа \*file\** для матчинга *file*aaa? надо еще назад заглянуть,
 проверить на отсутствие бэкслэша. кстати, [] и | это тоже касается.
 
  AC> $pattern =~ s/\\\?/./g;
 
 аналогично.
 
  AC> Чего я забыл или слажал?
 
 см. выше. ;)
 
 ps: блин, почему POSIX.pm fnmatch(3) не экспортирует? 
 -- 
 // pavel kurnosoff 
 --- Gnus v5.6.45/XEmacs 21.1 - "Bryce Canyon"
  * Origin: there's no tomorrow (2:5030/736.25)
 
 

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

Тема:    Автор:    Дата:    Re: замена   Artem Chuprina   27 Oct 2000 15:31:37   Re: замена   Pavel Kurnosoff   27 Oct 2000 21:59:25