在perl中将两个csv文件组合在一起

Question

Hi i'm very new to perl and i've got litle knowledge on it but i'm trying to create a script that conbines two .csv files into a new one

#!/usr/bin/env perl
use strict;
use warnings;
use Text::CSV_XS;

my @rows;
{   # Read the CSV file
    my $csv = Text::CSV_XS->new() or die "Cannot use Text::CSV_XS ($!)";
    my $file = "file.csv";
    open my $fh, '<', $file or die "Cannot open $file ($!)";
    while (my $row = $csv->getline($fh)) {
        push @rows, $row;
    }
    $csv->eof or $csv->error_diag();
    close $fh or die "Failed to close $file ($!)";
}

{    # Gather the data
    foreach my $row (@rows) {
        foreach my $col (@{$row}) {
            $col = uc($col);
        }
        print "\n";
    }
}
# (over)Write the data 
#  Needs to be changed to ADD data
{
    my $csv = Text::CSV_XS->new({ binary => 1, escape_char => undef })
        or die "Cannot use Text::CSV ($!)";
    my $file = "output.csv";
    open my $fh, '>', $file or die "Cannot open $file ($!)";
    $csv->eol("\n");
    foreach my $row (@rows) {
        $csv->print($fh, \@{$row}) or die "Failed to write $file ($!)";
    }
    close $fh or die "Failed to close $file ($!)";
}

this is my current code i do know this over write's the data insted of actually adding it to the new file but this is how far i managed to get with the limited time and knowledge i've got on perl

the csv format of both files are the same.

"Header1";"Header2";"Header3";"Header4";"Header5"
"Data1";"Data2";"Data3";"Data4";"Data5"
"Data1";"Data2";"Data3";"Data4";"Data5"
"Data1";"Data2";"Data3";"Data4";"Data5"
"Data1";"Data2";"Data3";"Data4";"Data5"
"Data1";"Data2";"Data3";"Data4";"Data5"

Answer 1

I believe the issue is here:

open my $fh, '>', $file
    or die "Cannot open $file ($!)";

If I remember my Perl properly, the line should read:

open my $fh, '>>', $file
    or die "Cannot open $file ($!)";

The >> should open the file handle $fh for append instead of for overwrite.

Answer 2

you could try something like this

opendir(hand,"DIRPATH");
@files = readdir(hand);
closedir(hand);

foreach(@files){
                if(/\.csv$/i) {                                                                 #if the filename has .csv at the end
                            push(@csvfiles,$_);
                                }
                }

foreach(@csvfiles) {
                    $csvfile=$_;
                    open(hanr,"DIRPATH".$csvfile)or die"error $!\n";                        #read handler 
                    open(hanw , ">>DIRPATH"."outputfile.csv") or die"error $! \n";          #write handler for creating new sorted files
                    @lines=();
                    @lines=<hanr>;

        foreach $line (@lines){
                                chomp $line;
                                $count++;
                                next unless $count;                                              # skip header i.e the first line containing stock details
                                print hanw join $line,"\n";
                                }

        $count= -1;
        close(hanw);
        close(hanr);
                    }`