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 $
Hi List,
Again I need your help, script in question is here:
#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 reso
Hi List,
I'm learning learning perl thru a book, as part of my exercises i tried to run
this code:
#!/bin/perl
use strict;
use diagnostics;
print "\t Enter Month of a year \n";
my $month = ();
my %days_month = (
January => 31,
February => 28,
