Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Re: system( ), printing output & matching

by zuinc (Novice)
on Apr 05, 2002 at 20:16 UTC ( #157042=note: print w/replies, xml ) Need Help??


in reply to Re: system( ), printing output & matching
in thread system( ), printing output & matching

I made some changes but continue to get the same output, 'ERROR'. I know my code was kinda messy and i tried to clean it up by closing all the filehandles before reopening them and a few other changes. Heres what I have:
# Create a list of all possible IP addresses within subnet open(ALLIP, ">allip.list") || die "Unable to create file: allip.list\n +"; for ($i=0; $i<=20; $i++) { print ALLIP "$ip_subnet.$i\n"; } close(ALLIP); open(ALLIP, "allip.list") || die "Unable to open file: allip.list\n"; open(PINGALLIP, ">pingallip.list") || die "Unable to open file: pingal +lip.list"; while (<ALLIP>) { system("ping $_ >pingallip.list") && "Unable to create file: p +ingallip.l ist"; chomp; } close(ALLIP); close(PINGALLIP); open(OUTPUT, ">output.list"); open(PINGALLIP, "pingallip.list") || die "Unable to open file: pingall +ip.list"; my $line = 0; while (<PINGALLIP>) { chomp; if ($_ =~ m/is alive/) { $line++; last; } } close(PINGALLIP); if ($line) { print OUTPUT "$_\n"; } else { print "ERROR\n"; }
Any more help would be greatly appreciated. ~_^

~Zuinc

Replies are listed 'Best First'.
Re: Re: Re: system( ), printing output & matching
by I0 (Priest) on Apr 06, 2002 at 02:22 UTC
    open(ALLIP, "allip.list") || die "Unable to open file: allip.list\n"; while (<ALLIP>) { chomp; system("ping $_ >>pingallip.list"); }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://157042]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2018-01-20 01:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How did you see in the new year?










    Results (226 votes). Check out past polls.

    Notices?