ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  27 Oct 2000  15:31:37
 To : Pavel Kurnosoff
 Subject : Re: замена
 -------------------------------------------------------------------------------- 
 

 <Pavel_Kurnosoff@p25.f736.n5030.z2.fidonet.org> wrote:
 
  PK>> а на самом деле проблемы нет - этот злощастный вопрос в первом регэкспе
  PK>> просто не нужен ;)
  AC>> Hе факт. 
 PK> ??? а какая разница между .* и .*? жадность разьве разная? 
 
 Вот надо посмотреть. А, впрочем, не роляет - нас же не интересуют части, если
 это шелловый pattern...
 
  AC>> там еще не ., а [^/]... Так что задача несколько менее тривиальна, чем
  AC>> кажется на первый взгляд...
 PK> угу. а еще надо . заменить на \\. в нужном месте. и везде расставить /g.
 
 А еще бывают альтернативы... Блин...
 
 И того.
 
 $pattern = quotemeta($pattern);
 # Альтернативы
 $pattern =~ s/\\\|/|/g;
 $pattern =~ s/{/(/g;
 $pattern =~ s/}/)/g;
 # Character classes
 $pattern =~ s/\\([][])/$1/g;
 # *
 $pattern =~ s/\\\*/.*/g;
 # ?
 $pattern =~ s/\\\?/./g;
 
 Чего я забыл или слажал?
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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

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