PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Simple IP-Lookup-Script



Bonkers
26.02.2010, 16:09
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
07.03.2010, 15:00
Danke dir ;>
Für den ein oder anderen sicher nützlich :)

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

Bonkers
07.03.2010, 15:14
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.