How do I merge every csv file in the directory?

luxlunae has asked for the wisdom of the Perl Monks concerning the following question:

I want this to look at every csv file in the directory and append them all to each other in an output.txt.

open(MYOUTFILE, ">output.txt"); #open for write, overwrite
my $filecount = 0;
my @filenames;

###code that assigns all the csv file names in the present folder 
#to an array and counts them

foreach $inputfilename (@filenames)
{
        open INPUT, "<$inputfilename";
        @lines = <INPUT>;
        close INPUT;
        
        foreach $row (@lines)
        {           
                 print MYOUTFILE ("$row\n");
        }
        
        close INPUT; 
}
close MYOUTFILE;
my $ovr = <STDIN>;
exit;
[download]

As you can see my weakness is actually getting all of the csv file names into an array. I think this is going to be solved with a map command but I wasn't able to figure it out myself.

Comment on How do I merge every csv file in the directory? Download Code

Replies are listed 'Best First'.
Re: How do I merge every csv file in the directory? by choroba (Cardinal) on Jun 27, 2012 at 17:36 UTC
See glob: `my @filenames = glob '.csv';` [download] Or, you can use bash: `cat .csv > output.txt` [download]	[reply] [d/l] [select]
Re^2: How do I merge every csv file in the directory? by SuicideJunkie (Vicar) on Jun 27, 2012 at 18:10 UTC
For windows, replace cat with type: `type *.csv > out.txt`	[reply] [d/l]
Re^2: How do I merge every csv file in the directory? by luxlunae (Novice) on Jun 28, 2012 at 13:12 UTC
Thanks!	[reply]
Re: How do I merge every csv file in the directory? by Jim (Curate) on Jun 27, 2012 at 18:51 UTC
As you can see my weakness is actually getting all of the csv file names into an array. I think this is going to be solved with a map command but I wasn't able to figure it out myself. Consider using `@ARGV` instead of hardwiring the input file names inside the script. And also consider using `STDOUT` instead of hardwiring the output file name inside the script. I like `File::Glob::bsd_glob()`. `#!perl use strict; use warnings; use English qw( -no_match_vars ); use File::Glob qw( bsd_glob ); @ARGV or die "Usage: perl $PROGRAM_NAME <CSV file> ...\n"; @ARGV = map { bsd_glob($ARG) } @ARGV; while (my $row = <ARGV>) { # Presumably, something useful happens to $row here; # otherwise this script is just cat(1) in Perl print $row; } exit 0;` [download] Jim	[reply] [d/l] [select]
Re: How do I merge every csv file in the directory? by Anonymous Monk on Jun 27, 2012 at 17:36 UTC
csvpaste.pl	[reply]