Wie ermittle ich meine eigene IP-Adresse?

Aufgabe

Ermitteln der IP-Adresse

Skript

#!/usr/bin/perl  
 
use Socket;  
use strict;  
 
sub ShowLocalInfo  
{  
my @hostent = gethostbyname(undef) or return 0;  
 
print "name:     ",shift @hostent,"\n"; # eigener Rechnername  
print "alias:    ",shift @hostent,"\n"; # ggf. Rechneralias  
print "addrtype: ",shift @hostent,"\n";  
print "length:   ",shift @hostent,"\n";  
 
print "\nOwn Ip-Addrs:\r\n";  
print "\t",inet_ntoa($_), "\r\n" foreach (@hostent);  
}  
 
ShowLocalInfo();  

Ergänzungen, Kommentare

JoergWestphal - 16 Aug 2003 -

Erst einmal ohne Anmerkungen eingestellt.