in reply to foreach not working as I expected

Let's reuse as many existing tools as we can: (First save whatever you want to append in a file called tail.txt.) 
use File::Glob ':glob';

use strict;

my @txt_files = bsd_glob("*.txt");
foreach my $txt_file (@txt_files) { 
    system("copy $txt_file+tail.txt $txt_file");
}

[download]

Replies are listed 'Best First'.
Re: Re: foreach not working as I expected
by {NULE} (Hermit) on Dec 19, 2002 at 17:32 UTC
    For one-time throw away tasks, maybe. This is expensive code though, particularly if there are tons and tons of files to be appended to. You are spawning shells for each iteration of the loop. These in turn fire off copy (which may or may not be a builtin to your shell) which in turn has to perform the same open, print, close logic your script would do anyway.

    Besides, it's not very perlish. {g}

    But, on an off topic for those who are saying "don't close your file, let the scope take care of it", please think some about maintainability. Someday a n00b will see your code and not understand how the scope issues work. They'll just think "oh, I guess you don't have to worry about closing things".
    {NULE}
    --
    http://www.nule.org

[reply]

In Section Seekers of Perl Wisdom