[EMAIL PROTECTED] wrote:
Can anyone point out what is uninitialized in line 162?
You don't say which line is number 162.
my @resolved = ();
foreach (@dns){
my $ip = gethostbyname($_);
gethostbyname() will return undef if $_ does not contain a valid host name.
defined( my $ip = gethostbyname($_) ) or do {
warn "Host '$_' not valid.\n";
next;
};
my ($a,$b,$c,$d);
my $x = join (".", (unpack('C4',$ip ))); # line 162
$x ||= "????";
push (@resolved, join(" => ", $_,$x));
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
