nicht angemeldet
Moin.
Wie man mit Netzwerkverbindungen in Perl hantiert, weiß ich leider nicht.
"Ganz einfach" ;-)
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$ua->agent("Nintendo GameBoy");
$url = "http://www.blablabla.de/potd/potd.php.";
$response = $ua->request(HTTP::Request->new('GET',$url));
if($response->is_success) {
print $response->content();
}
Das Bsp. funktioniert erstmal nur, wenn das PHP-Script Text zurück liefert, ists eine Grafik, müßte man nochmal drüber nachdenken.
An Lactrik zu Thema Sinn und Unsinn des Aufrufs von PHP aus Perl: Es gibt durchaus solche Anwendungen, z.B. Ein "eingefahrenes" Script soll durch eine Funktion erweitert werden, die die in PHP realisiert ist. Ich nutze sowas bei terminmailer.de. Alle Scripts sind in Perl geschrieben, als die Erweiterung um SMS-Versand anstand, hatte ich die Wahl, alles neu zu schreiben oder PHP einzubinden - das Gateway ist in PHP geschrieben und wird durch den Provider zur Verfügung gestellt.
Gruß Frank