[E|B

,11.08.2004, 18:59]HiHo!

Code: (dl )

1
2
3
4

my $output = `who`;
my ($ip) = $output =~ /^.*?(\d+\.\d+\.\d+\.\d+)$/gis;
my $ping = `ping -a $ip`;
print $ping;

Quick 'n dirty 'n untested. 8)

who gibt evtl. den aufgeloesten Hostnamen zurueck. Aber dann kann man ja esskars kuerzlich gepostetets IP/Hostname-Test-Modul verwenden...