in reply to Ping a Server
my $IP=&resolve('Server'); print "$IP\n"; sub resolve(){ my $check=join('.',(unpack("C4", gethostbyname($_[0])))); return $check; }
|
---|
In Section
Seekers of Perl Wisdom
in reply to Ping a Server
my $IP=&resolve('Server'); print "$IP\n"; sub resolve(){ my $check=join('.',(unpack("C4", gethostbyname($_[0])))); return $check; }
|
---|