Re: cat -ing Multiple files with Perl

sub catalanche
{
    system qq( cat "$_" >> "$_[1]" ) for @{$_[0]};
}

catalanche( \@sel_files => 'selected.txt' );
[download]

We're building the house of the future together.

Comment on Re: cat -ing Multiple files with Perl Download Code

Replies are listed 'Best First'.
Re^2: cat -ing Multiple files with Perl by neversaint (Deacon) on Dec 14, 2005 at 07:05 UTC
Dear jdporter, Is it possible to make your snippet above to print to STDOUT? I tried this modification in mycode.pl: `catalanche( \@sel_files );` [download] and then do this with mycode.pl: `$ perl mycode.pl > mydesired_outputfile.txt` [download] But it doesn't work. Hope to hear from you again. --- neversaint and everlastingly indebted.......	[reply] [d/l] [select]
Re^3: cat -ing Multiple files with Perl by jdporter (Paladin) on Dec 14, 2005 at 14:55 UTC
Untested. `sub catalanche { if ( @_ == 0 or $_[1] eq '-' ) # let - signify stdout as well { system qq( cat "$_" ) for @{$_[0]}; } else { system qq( cat "$_" >> "$_[1]" ) for @{$_[0]}; } }` [download] We're building the house of the future together.	[reply] [d/l]