No such thing as a small change | |
PerlMonks |
Re: Return to original loopby AppleFritter (Vicar) |
on Oct 15, 2015 at 11:49 UTC ( [id://1144961]=note: print w/replies, xml ) | Need Help?? |
Your problem is that you're trying to read from DATA again for each line. But after the outer loop's first iteration, DATA is exhausted and won't return anything anymore, so the inner loop's body will not execute anymore. You can reset the filehandle using seek to start reading from the beginning again - disclaimer, I've never tried that on DATA -, or (better) you could read from DATA into an array and iterate over that in your inner loop instead.
Also, just for general reference: you can stick labels in front of loops and pass a label to next to have it start the next iteration of a specific loop, e.g.:
This also works for last and redo.
In Section
Seekers of Perl Wisdom
|
|