Readers: 2
10 entries, 1 page |
get("http://board.perl-community.de/cgi-bin/ikonboard/ikonboard.cgi?act=Post;CODE=02;f=6;t=2073");
get("http://www.google.de/search?hl=de&q=suchwort&btnG=Suche&meta=");
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
require LWP::UserAgent;
my $url = "http://www.google.de/search?hl=de&q=suchwort&btnG=Suche&meta=";
my $ua = LWP::UserAgent->new;
$ua->agent('googlebot'); # man muss sie mit ihren eigenen Waffen schlagen
my $req = new HTTP::Request GET => "$url";
my $res = $ua->request($req);
if ($res->is_success) {
print $res->content;
}
10 entries, 1 page |