Opened by Gast at 2006-02-20 10:46
Servus Perl-Progger!
Ich möchte gerne eine HTTP-Anfrage starten:
hmm also ich habe denke ich mal noch Probleme mit dem Proxy:
ich kann in einer Shell Dateien zB erst mit wget holen wenn ich vorher den Proxy richtig einstelle:
export http_proxy="http://service:3128", danach geht es.
Ich versuche folgendes:
mit LWP::Simple habe ich es auch versucht nur weiß ich nicht wie man da den Proxy einstellt, aber es geht weder das eine noch das andere.
Wie komme ich an die Info welchen Proxy er verwendet und vorallem, wie ändere ich ihn in jenen oben genannten damit es endlich gehen wird ? Ich kriege über das Perl-SCript einfach keine Verbindung zustande
Ich möchte gerne eine HTTP-Anfrage starten:
hmm also ich habe denke ich mal noch Probleme mit dem Proxy:
ich kann in einer Shell Dateien zB erst mit wget holen wenn ich vorher den Proxy richtig einstelle:
export http_proxy="http://service:3128", danach geht es.
Ich versuche folgendes:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
system("export http_proxy=\"http://service:3128\""); # Sichergehen das Proxy richtig eingestellt ist
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
#$ua->env_proxy;
my $response = $ua->get('http://www.gom.com/');
#print $response;
if ($response->is_success) {
print $response->content; # or whatever
}
else {
print "shit!";
}mit LWP::Simple habe ich es auch versucht nur weiß ich nicht wie man da den Proxy einstellt, aber es geht weder das eine noch das andere.
Wie komme ich an die Info welchen Proxy er verwendet und vorallem, wie ändere ich ihn in jenen oben genannten damit es endlich gehen wird ? Ich kriege über das Perl-SCript einfach keine Verbindung zustande