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!
In Section
Seekers of Perl Wisdom