IP-Adresse aus Webseite filtern

Hallo alle,

vielleicht kann mir jemand etwas unter die Arme greifen. Ich hatte mein
Skript ursprünglich in php gebastelt, das kann ich aber auf meinem
neuen Server nicht nutzen, daher brauche ich dasselbe in pearl, wovon
ich nahezu keine Ahnung habe. Jedenfalls fehlt mir dazu noch ein
Codeschnipsel.
Ich möchte eine Webseite aufrufen und zeilenweise(?) nach dem ersten
Vorkommen einer IP-Adresse durchsuchen. So hatte ich es zumindest in
php gemacht. Wie komme ich am schnellsten an die IP-Adresse?

Hintergrund: die Webseite gehört zu meinem Router und ich möchte die
IP-Adresse im nächsten Schritt per ftp ins Internet kopieren. Mit dem
zweiten Teil habe ich kein Problem.=20

Danke schonmal & Gruß von
Thomas

Re: IP-Adresse aus Webseite filtern

Thomas Huth schrieb:
> Ich möchte eine Webseite aufrufen und zeilenweise(?) nach dem ersten
> Vorkommen einer IP-Adresse durchsuchen. So hatte ich es zumindest in
> php gemacht. Wie komme ich am schnellsten an die IP-Adresse?

Ungetestet:

#seite laden
use LWP::Simple;
$content = get("http://deine/seite/");
die "Couldn't get it!" unless defined $content;

#per regexp nach IP suchen: ###.###.###.###
if ($content =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) {
#IP steht jetzt in $1
print "IP: $1";
} else {
print "Keine IP auf der Seite gefunden";
}

--
Thomas Wittek
http://gedankenkonstrukt.de/
Jabber: streawkceur@jabber.i-pobox.net

Re: IP-Adresse aus Webseite filtern

Hallo Thomas,

Thomas Wittek schrieb:
> Ungetestet:
>
> #seite laden
> use LWP::Simple;
> $content =3D get("http://deine/seite/");
> die "Couldn't get it!" unless defined $content;
>
> #per regexp nach IP suchen: ###.###.###.###
> if ($content =3D~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) {
> #IP steht jetzt in $1
> print "IP: $1";
> } else {
> print "Keine IP auf der Seite gefunden";
> }

besten Dank für Deine schnelle Hilfe! Damit werde ich sicher
weiterkommen.=20

Gruß von
Thomas