ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Lunkov                     2:5055/201.26  09 Sep 2002  06:52:15
 To : Sergey Ermakov
 Subject : regexp
 -------------------------------------------------------------------------------- 
 

 
 
 01 января 1970, Sergey Ermakov wrote to Artem Chuprina:
 
  AC>> @found = ($a =~ m#<abc>(.*?)</abc>#g);
 
  SE>                                ^ вот тут зачем?..
 
    Как бы ты поступил?
 
  AC>> Hе проверял - лениво... Там могут быть тонкости с тем, что именно
  AC>> попадет в @found.
 
  SE>  А что за трудности?..
 
     Уже сам справился. Криво немного, но другие способы не получилось
 реализовать.
 
 for my $i (0..$#text){
   if ($text[$i]=~m#\<a(.*)>#i){
     for my $j ($i..$#text){
       if (($text[$j]!~m#</a(.*)>#i) || ($text[$j]=~m#</a(.*)>#i)){
         print "abrakadabra" if ($text[$j]!~m#^<#);
         print $text[$j];
       }
     }
     last;
   }
 }
                                                     Sincerely yours, Alex
 
 --- Linux - suxx, FreeBSD - rulez!
  * Origin: Люди всегда будут такими, какими делают их женщины. (2:5055/201.26)
 
 

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

Тема:    Автор:    Дата:    regexp   Alexander Lunkov   03 Sep 2002 22:23:48   Re: regexp   Artem Chuprina   07 Sep 2002 14:49:17   regexp   Sergey Ermakov   08 Sep 2002 18:36:40   regexp   Alexander Lunkov   09 Sep 2002 06:52:15