Thomas B�tzler <[EMAIL PROTECTED]> wrote: Hi,
joseph tacuyan asked:
> #usr/local/perl -w
> use strict;
> use Socket;
> open(OUTPUT,">>iplisted.txt") or die "can't open iplisted.txt
> $!"; foreach () { 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
Thank you, it helps.
/joseph
---------------------------------
Want to be your own boss? Learn how on Yahoo! Small Business.
