Erwin: Das Script

Beitrag lesen

Hi André,

das PERL Script ist ganz einfach, siehe untenstehend.

Viele Grüße, Rolf

=======================================================
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
my $url = 'http://example.com'
my $req = new HTTP::Request 'GET' => $url;
my $res = $ua->request($req);
my $doc = $res->as_string;

ggf. ein paar schoenheitskorrekturen...

$doc =~ s/</</g;
$doc =~ s/>/>/g;
$doc =~ s/\n/<br>/g;

print $doc;