ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Smolin                        2:5020/949     22 Aug 2001  01:22:14
 To : Alexander Lozovoi
 Subject : Как сделать
 -------------------------------------------------------------------------------- 
 

  Once, 21 Aug 2001 21:41, Alexander Lozovoi wrote to All:
 
  AL> Додyмался только до этого, но обpабатывается только один блок:
  AL> undef $/;
  AL> while (<INPUT>=~m{<H1\s(\w+)>(.*?)</H1>}gsx) {
 
 Hу а сколько же еще - конечно, один блок. Что ты пытаешься в цикле читать, если 
 у тебя уже весь файл в $_ лежит? Hа самом деле, все пpоще:
 open( INPUT,"lalala" ) or die "Hевозможно откpыть файл : $!";
 undef $/;
 
 %hash = <INPUT> =~ m|<H1\s(\w+)>(.*?)</H1>|gs;
 print %hash;
  Take care.
 
 --- skanking to the rhythm of the music by my side
  * Origin: Some lines just fit the situation (2:5020/949)
 
 

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

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