Simple IP-Lookup-Script

[Bonkers]

Hey,
Nichts besonderes, ich benutze das nur nach dem Verbinden mit dem VPN um bei verschiedenen Seiten die Stabilität der Verbindung zu prüfen (Und auf Funktionalität zu prüfen, anhand der angezeigten IP ).
Unten könnt ihr beliebige Seiten einfügen.

use LWP::Simple; 
use LWP::UserAgent; 
use HTTP::Request::Common qw(GET); 
use LWP::Simple qw(getstore);
$| = 1;
sub procpage { 
my $webservice = shift;
my $content; 
my $content = content_of($webservice); 
if ($content =~ m!(\b(?:\d{1,3}\.){3}\d{1,3}\b)!) { 
    $result = $1; 
} else { 
    $result = "Failed. Sry."; 
} 
my $buffer = "\ "x(75-length($webservice)-length($result));
print $webservice.$buffer.$result."\n"; 
return 0; 
} 
sub content_of() 
{ 
my $adress = shift; 
my $userag = LWP::UserAgent->new(agent => 'IP-Lookup-v1'); 
my $request = GET $adress; 
my $buffer = $userag->request($request); 
return $buffer->content; 
} 
print "\n\n\t\t\t#\ \ IP-Adress-Lookup by Bonkers \ #\n\t\t\t#\ \ Getrieben\ von\ Lust\ und\ Gier\ \ #\n\n\n";
procpage('http://myip.is');
procpage('http://meineipadresse.de/');
procpage('http://www.ip-adress.com/what_is_my_ip/');
procpage('http://decloak.net');
procpage('http://whatismyipaddress.com/');
procpage('http://www.ip-adress.com/');
procpage('http://myip.tsql.de/');
print "\n\n\t\t\t#".("\ "x13)."Done".("\ "x13)."#\n";

[td0s]

Danke dir ;>
Für den ein oder anderen sicher nützlich

[kalachnikov]

könntest dein Script noch etwas erweitern, indem du z.bsp. Host, Browser etc. noch abfragst:-D

[Bonkers]

könntest dein Script noch etwas erweitern, indem du z.bsp. Host, Browser etc. noch abfragst:-D

Dann funktioniert das aber nicht generell mit allen IP-Seiten, sondern nur mit speziellen, weil die Daten ja unterschiedlich aufgearbeitet sind. Ich kann aber gerne zu "wieistmeineip" oder so ne spezielle Klasse schreiben, dann werden von den anderen die IP, und von wimi (haha) der Browser und OS ausgegeben.

Mache ich heute Abend.