ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  18 Jan 2001  16:07:25
 To : Sukhov
 Subject : Re: СОС
 -------------------------------------------------------------------------------- 
 

 В твоём письме от Thu, 18 Jan 2001 12:22:02 +0300 написано:
 
 scr> Она выдёт всё содержимое...
 scr> задача такова: Я утягиваю сайт, скажем www.rambler.ru
 scr> (my $URL = 'http://www.rambler.ru/';
 scr>  my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $URL);
 
 scr> $b= $res->content;
 scr> ) весь код есесно в ней, так вот там много строк, среди которых есть строка
 
 <td>><font face="Arial" size="-1">First Name:</font></td><td><font
 
 scr> face="Arial" size="-1"><b>ИМЯ</b></font></td></tr>
 scr> так вот именно ИМЯ мне и нуно вытащить...-)
 
 Так бы сразу и сказал.
 
 print $1 if $b =~ m#<td><font face="Arial" size="-1">[^<]*</font></td><td><font 
 face="Arial" size="-1"><b>([^<]*)#;
 
 -- 
 Artem Chuprina                            E-mail: ran@ran.pp.ru
 Programmer                                  FIDO: 2:5020/371.32
 Memonet Ltd.                             Phone: +7-095-284-1356
 --- slrn/0.9.6.3-as (Linux)
  * Origin: AKA с подствольным плюсомётом (2:5020/371.32)
 
 

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