Hi,
joseph tacuyan <[EMAIL PROTECTED]> asked:
> #usr/local/perl -w
> use strict;
> use Socket;
> open(OUTPUT,">>iplisted.txt") or die "can't open iplisted.txt
> $!"; foreach (<DATA>) { s/\s+//; my $address = $_; my $name
> = gethostbyaddr(inet_aton($address), AF_INET)
> or die "Can't resolve $address: $!\n"; print
> OUTPUT "$_ =>$name \n"; } __DATA__
> 10.160.71.239
[...]
> How can rewrite it, so even it encounters
> such an error it would still continue? Thank you for all the help.
Replace "die" with "warn".
HTH,
Thomas
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
