ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : pav                                  2:5020/400     26 Jun 2000  11:48:41
 To : All
 Subject : x-Regexp
 -------------------------------------------------------------------------------- 
 

 Hi, all.
 
 Кто знает в чем прикол?
 Задача простая - все числа 'x' в строке заменить на 'x' % 12. (Hу якобы
 часы)
 
 Так - криво преобразует первое вхождение...
 #!/usr/bin/perl
 $_='11,234,3423,23,   235..2345';
 s/(\D*)(\d+)(?{$q=$2 % 12})/$1$q/gx;
 print
 
 А так нормально - но не красиво.
 #!/usr/bin/perl
 $_='11,234,3423,23,   235..2345';
 $junk=$2 if /(\D*)(\d+)/;
 s/(\D*)(\d+)(?{$q=$2 % 12})/$1$q/gx;
 print
 
     Вроде как в каждом блоке $1,$2,... и т.д. свои, но в первом примере
 второе число обрабатывается правильно. В общем какое-то отсутствие логики
 ;-(.
 
 Bye.
     PAV.
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    x-Regexp   pav   26 Jun 2000 11:48:41   Re: x-Regexp   Ilja Tabachnik   27 Jun 2000 10:38:11   Re: x-Regexp   frolcov@solaster.fintech.ru   27 Jun 2000 14:37:24