|
Тема |
Re: Получаване на инфо от заявка, ебаси топика сложих [re: voyager] |
|
Автор |
jordani () |
|
Публикувано | 14.03.03 11:11 |
|
|
#!/usr/bin/perl -w
use LWP::UserAgent;
use URI::URL;
$ua = LWP::UserAgent->new();
$ua->agent("Links/2.0"); # или каквото си харесаш за браузер
my $search_engine = "http://www.google.com/search"; #за други url-та виж сам
my $search_string = "o'reily perl cookbook"; # какво ще търсим
my $desired_language = "bg"; #това може и да го пропуснеш
my $URL = url($search_engine); # man URI::URL
$URL->query_form(q =>$search_string , hl => $desired_language);
my $result = $ua->get($URL)->as_string;
print $result; # в $result ти е HTML кода и вече си го парсвай
|
| |
|
|
|