Ich habe mich selbst frustriert für viel zu viele Stunden. Ich denke, das sollte einfach sein, aber ich habe offensichtlich etwas fundamental falsch. Ich habe gelesen:Probleme mit Perl-Mechanisierung und Proxies
Ich habe die cpan docs lesen für: WWW-Mechanize/lib/WWW/Mechanize/FAQ.pod libwww-perl-5.837/lib/LWP/UserAgent.pm
Und jedes bisschen Beispielcode oder Artikel, den ich bei Google finden konnte.
Dies ist mein erstes Mal auf der Suche nach Hilfe auf Stack Overflow. Danke im Vorraus für deine Hilfe. Hier ist der Code:
#!/usr/bin/perl
use WWW::Mechanize;
my $mech = WWW::Mechanize->new (agent => "Mozilla/5.0");
my $proxy = 'http://fetch4.me';
$mech->no_proxy('localhost');
$mech->proxy(['http', 'https', 'gopher'], $proxy) or die $!;
$mech->get('http://www.google.com');
print $mech->uri(),"\n";
print $mech->content(),"\n";
print $mech->text(),"\n";
print $mech->status(),"\n";
Hier ist die Ausgabe:
http://www.google.com
<html>Apache is functioning normally</html>
Apache is functioning normally
200
Ich bin hier die Ideen ausgehen. Funktioniert dieser Code für Sie? Führt es zu denselben Ergebnissen? Was stimmt damit nicht? >. <
Vielen Dank für Ihre Zeit.
Vielen Dank für Ihre Antwort ysh. Ich habe die Änderung vorgenommen, worauf Sie hingewiesen haben, und es scheint keinen Einfluss auf die Ausgabe zu haben. Seltsamerweise, wenn ich anstelle von www.google.com eine Domain erstelle, die ich nicht gut oder gut finde, bekomme ich die gleiche Ausgabe. Es scheint also so, als ob der $ mech-> uri() angibt, dass ich den Inhalt() von Google bekomme, der wirklich vom Proxy kommt. – PSCO
@PSCO: Ich schlage vor, Mech aus der Gleichung zu nehmen; Prüfen Sie, ob Sie nur mit LWP :: UserAgent arbeiten können. – ysth
Ich gebe das eine Chance und melde mich zurück. – PSCO