Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: How do I merge every csv file in the directory?

by Jim (Curate)
on Jun 27, 2012 at 18:51 UTC ( #978746=note: print w/ replies, xml ) Need Help??


in reply to How do I merge every csv file in the directory?

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;

Jim


Comment on Re: How do I merge every csv file in the directory?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://978746]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2015-07-02 00:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (25 votes), past polls