ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vilfred                              2:5020/400     14 Mar 2003  14:02:15
 To : Ivan Frolcov
 Subject : Re: regexp
 -------------------------------------------------------------------------------- 
 

 
 не наверное что-то вроде этого
 
 #!/usr/bin/perl -wT
 
 $file=qq|s<table>aaa bbb
       <table>cc<table>ccc
       <table> 2<table>bb</table> </table></table>cc
   </table>
      ddd</table>d
 |;
 
 print $file;
 &req($file);
 sub req {
  
 if($file=~m%(<table>((?!.*<table>).*?)</table>)%igs){
     $file=~s%(<table>((?!.*<table>).*?)</table>)%%igs;
     print "Virezali --$1--\n";
     &req($file);
   }
 return $file;
 }
 
 Дима
 
 -- 
 TEAM [Маньяки]
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    regexp   Sadretdinova Nelly   14 Mar 2003 11:12:33   Re: regexp   Nick Kostirya   14 Mar 2003 11:46:56   Re: regexp   Ivan Frolcov   14 Mar 2003 11:57:39   Re: regexp   Nick Kostirya   14 Mar 2003 12:37:42   Re: regexp   Artem Chuprina   14 Mar 2003 12:58:26   Re: regexp   vilfred   14 Mar 2003 14:02:15