ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       01 Apr 2003  20:19:50
 To : Maxim Yemelyanov
 Subject : Re: одним регекспом
 -------------------------------------------------------------------------------- 
 

 MY> Можно ли одним регекспом его загнать в массив?
 MY>   while ($faq =~ /Q:(.*?)A:(.*?)(?=Q:)/sg) { push @FAQ, [$1, $2]; }
 MY> последняя пара Q-A не попадает.
 
 while ($faq =~ /Q:(.*?)A:(.*?)(?=Q:|$)/sg)
 
 aa29
 --- Microsoft Outlook Express 6.00.2720.3000
  * Origin: Life In The Dark (2:5061/6)
 
 

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