Keep It Simple, Stupid | |
PerlMonks |
Re^5: appending to a fileby Nkuvu (Priest) |
on Mar 19, 2009 at 22:09 UTC ( [id://751893]=note: print w/replies, xml ) | Need Help?? |
Without a fair bit of rewriting your original code, you can add a last; after the final call to close() -- this will exit the for my $f(@files) loop. This isn't the way I'd write the script, personally, but I don't know enough about your file structure to revise it accurately. I'd probably use File::Find to make this a bit simpler.
In Section
Seekers of Perl Wisdom
|
|