|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : InSAn 2:5020/400 05 Apr 2001 13:23:37
To : All
Subject : Re: это нехитро...
--------------------------------------------------------------------------------
> > <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";
> }
> }
Hемного неправильно выразился... Самих "<!-- Вот это -->" там нет... Это я
написал для ясности, что нужно выцеплять. :-)
Hо смысл понятен. Спасибо!
--
- ---
Best regards, InSAn
http://adv.proext.com - Магазин сетевой рекламы
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
