Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Array Problem

by sapnac (Beadle)
on Jul 08, 2005 at 15:05 UTC ( #473437=note: print w/replies, xml ) Need Help??


in reply to Array Problem

Hi! Check this code. I've assumed the results are in ping.txt and are valid. This is tested and working...
open(RESULTS2, "ping.txt") || die; open(RESULTS, ">ping2.txt") || die; *********** someother file ******* +******* @results = <RESULTS2>; close(RESULTS2); $j = 0; *************************array's initial subscript $a = 0; $f = 0; foreach (@results) { ************** URs went into a loop* if (m/Reply/) { $output[$j] = $baseIP.$j.": Alive\n"; print $output[$j]."\n"; $j++; } elsif (m/Request/) { $output[$j] = $baseIP.$j.": Dead\n"; print $output[$j]."\n"; $j++; } } print RESULTS "Pinger Results:\n\n"; print RESULTS "Alive Nodes: $a\n"; print RESULTS "Dead Nodes: $f\n"; print RESULTS "\n\nDetailed Results:\n"; print RESULTS @output; ************************************************** Hope this helps. Thanks!

Replies are listed 'Best First'.
Re^2: Array Problem
by wanderinweezard (Initiate) on Jul 08, 2005 at 15:34 UTC
    That's great, it seems to do what I want now.. But for some reason in the part where it prints the @output in the ping2.txt file, it does not include $baseIP, but looking at the code, I'm not sure I see anything wrong.
      That is because I forgot ; $baseIP = "10.0.5."; At the begining of the program. Good Luck

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://473437]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2020-11-25 05:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?