ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vilfred                              2:5020/400     05 Apr 2001  12:50:38
 To : Insan
 Subject : это нехитро...
 -------------------------------------------------------------------------------- 
 

 >     <td ...>A</td>     <!-- Вот это 1 -->
 
 #!/usr/bin/perl -wT
 use strict;
 my ($page, $line);
 use LWP::SImple;
 $page=get "http://www.kuku.ru";
 foreach $line(split /\n/ $page){
 if($line =~m/<td (.*)>(.*)<\/td>(.*)<!-- Вот это (\d+) -->/){
 print "Ура, ура, ура!!! Из табличкы выцепленно $2<br>\n";
 }
 }
 
 если ты выцепил 1000 таких табличек, то приведенный мной код вставляешь в еще 
 один цикл, где массив - скажем 1000 урлов... И просто перебираешь
 вобщем так вот оно и делается. В хеш сам вставь... и еще perldoc perlre
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Даже не знаю, как озаглавить...   InSAn   05 Apr 2001 10:47:58   это нехитро...   vilfred   05 Apr 2001 12:50:38   Re: это нехитро...   InSAn   05 Apr 2001 13:23:37