Opened by Crian at 2003-09-05 19:13
User since
2003-08-04
1706 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
1706 Artikel
HausmeisterIn
Also erstens mach ich sowas etwas anders.
Hier die Methode wie es funktioniert.
Jan hat recht. Google versucht sich gegen Fremdzugriffe von scripten zu schützen.
Gib deinem UA Objekt einfach einen UserAgent mit von einem Browser und schon gehts.
Hier noch ein Beispiel. Ist getestet.
Alles klar?
Gruß Alex
Hier die Methode wie es funktioniert.
Jan hat recht. Google versucht sich gegen Fremdzugriffe von scripten zu schützen.
Gib deinem UA Objekt einfach einen UserAgent mit von einem Browser und schon gehts.
Hier noch ein Beispiel. Ist getestet.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
format_c@linux:~/perl_samples> perl
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
my $url = "http://www.google.de/search?q=MPlayer&ie=ISO-8859-1&hl=de&meta=";
my ($uri,$param) = split /\?/,$url;
my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (compatible; Konqueror/3; Linux)');
my $request = $ua->request(GET $uri,[split /&|;|=/,$param]);
if ($request->is_success) {
print "OK\n";
}
else {
print "Nicht OK\n";
}
OK
format_c@linux:~/perl_samples>
Alles klar?
Gruß Alex