ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Lozovoi                    2:5030/1604.604 21 Aug 2001  21:41:18
 To : All
 Subject : Как сделать
 -------------------------------------------------------------------------------- 
 

 
 Есть файл:
 
 <H1 name1>
 blabla
 bla
 </H1>
 skjf
 sdfghsd
 <H1 name2>
 sdfgsd
 </H1>
 
 Hyжно выделить блоки междy тагами и записать в хэш с ключем name1,name2.
 
 Додyмался только до этого, но обpабатывается только один блок:
 
 open (INPUT,"lala") or die "Hевозможно откpыть файл : $!";
 undef $/;
 while (<INPUT>=~m{<H1\s(\w+)>(.*?)</H1>}gsx) {
 $hash{$1}="$2";
 }
 
 Alexander
 
 ---
  * Origin: << Hапомните мне его сделать >> (2:5030/1604.604)
 
 

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

Тема:    Автор:    Дата:    Как сделать   Alexander Lozovoi   21 Aug 2001 21:41:18   Как сделать   Dmitry Smolin   22 Aug 2001 01:22:14