Die IP-Adresse meines Routers...: ...in der Kommandozeile angezeigt - #37197 (Netzwerkprogrammierung und Netzwerke mit Perl)

chrim

2006-03-30 20:31

User since
2006-03-30
4 Artikel
BenutzerIn

Hallo nepos,

vielen Dank für deine Antwort. Aber mit deiner Lösung finde ich "nur" die IP-Adresse von whatismyip.com heraus. Ich möchte aber wissen, mit welcher IP-Adresse ich im Internet unterwegs, also welche IP-Adresse ich von meinem Provider erhalten habe.

BTW: Deine Lösung hat bei mir eine Fehlermeldung erzeugt, mit der ich nichts anfangen konnte:

Code: (dl )

#!/usr/bin/perl -w
use strict;
use Socket;

print inet_ntoa(gethostbyname('www.whatismyip.com') ." ");

Der Aufruf des Scripts gibt bei mir (MacOS X, Perl 5.8.7) folgendes aus:
Bad arg length for Socket::inet_ntoa, length is 5, should be 4

Ich musste das Skript folgendermaßen ändern, um ein Ergebnis zu erzielen:

Code: (dl )

#!/usr/bin/perl -w
use strict;
use Socket;

my $hostname = gethostbyname('whatismyip.com');
print inet_ntoa($hostname) . "\n";

</span><span style='font-family:courier'>