Re^4: appending to a file

I want to append the three files to my $out file.
I only need each file appended once. The loop is appending each file
four times. Any ideas?

Comment on Re^4: appending to a file

Replies are listed 'Best First'.
Re^5: appending to a file by Nkuvu (Priest) on Mar 19, 2009 at 22:09 UTC
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.	[reply] [d/l] [select]