I want to nest a for loop in a for loop in a while loop, and I can't even get just the first nesting to work yet. Here is the relevant part of my scripting.
open(XYZ,"$ARGV[0]ready.xyz"); #while (<XYZ>) { #chomp($_); for ($z = 0, $z <= $#sortedstart, $z++) { for ($i = $sortedstart[$z], $i <= $sortedend[$z], $i++) { if ($_ =~ /^\s+$i\s+(\D).*\s+(.+\.\d+\s+.+\.\d+\s+.+\.\d+)\s+/) { $count++; print CON " $count $count $1 0 $2\n"; } print "\nz is $z\n"; print "\ni is $i\n"; } } I am expecting it to cycle through several $i values and also $z values. When it prints the values, it only gives $z=1. Does anyone see why this isn't working? -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/