ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     21 Jun 2003  18:54:35
 To : Serg Chervjakov
 Subject : Re: RegExp и @-
 -------------------------------------------------------------------------------- 
 

 Serg Chervjakov wrote:
 
 > Hi All,
 > 
 > Исходные данные:
 > 
 > $txt='jsd</cat1>sdf</cat2>lop';
 > #Делаю регэксп:
 > @mas=$txt=~/(<\/cat\d>)/gsi;
 > 
 > Ясно, что @mas содержит '</cat1>','</cat2>','</cat3>'.
 > Hужно: получить offset'ы начал каждого из них. По идее, надо как-то
 > воспользоваться @-. А вот как - не въезжаю, потому как надо делать по /g, а @-
 > содержит оффсеты не /g (т.е. не элементов @mas), а значения $1,$2,$3... Как
 > быть?
 > 
 
 Быть так:
 
 $txt='jsd</cat1>sdf</cat2>lop';
 while($txt =~ /(<\/cat\d>)/gci) {
      print "Found: $1, at: $-[0], current position: ", pos($txt), "\n";
 }
 
 -- 
 Андрей
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    RegExp и @-   Serg Chervjakov   21 Jun 2003 17:32:52   Re: RegExp и @-   Andrey Sapozhnikov   21 Jun 2003 18:54:35