Powershell / Perl：将多个 CSV 文件合并为一个？

我有以下 CSV 文件，我想将它们合并到一个 CSV 中

01.csv

apples,48,12,7
pear,17,16,2
orange,22,6,1

02.csv

apples,51,8,6
grape,87,42,12
pear,22,3,7

03.csv

apples,11,12,13
grape,81,5,8
pear,11,5,6

04.csv

apples,14,12,8
orange,5,7,9

期望的输出：

apples,48,12,7,51,8,6,11,12,13,14,12,8
grape,,,87,42,12,81,5,8,,,
pear,17,16,2,22,3,7,11,5,6,,,
orange,22,6,1,,,,,,5,7,9

任何人都可以提供有关如何实现这一目标的指导吗？最好使用 Powershell，但如果更容易的话，也可以使用 Perl 等替代品。

谢谢潘蒂克，你的代码的输出接近我想要的：

apples,48,12,7,51,8,6,11,12,13,14,12,8
grape,87,42,12,81,5,8
orange,22,6,1,5,7,9
pear,17,16,2,22,3,7,11,5,6

不幸的是，当 CSV 文件中不存在该条目时，我需要使用“占位符”逗号，例如橙色,22,6,1,5,7,9 而不是橙色,22,6,1,5,7,9

更新：我希望按照文件名的顺序解析这些内容，例如：

$myFiles = @(gci *.csv) | sort Name
foreach ($file in $myFiles){

问候 特德

这是我的 Perl 版本：

use strict;
use warnings;

my $filenum = 0;

my ( %fruits, %data );
foreach my $file ( sort glob("*.csv") ) {

    $filenum++;
    open my $fh, "<", $file or die $!;

    while ( my $line = <$fh> ) {

        chomp $line;

        my ( $fruit, @values ) = split /,/, $line;

        $fruits{$fruit} = 1;

        $data{$filenum}{$fruit} = \@values;
    }

    close $fh;
}
foreach my $fruit ( sort keys %fruits ) {

    print $fruit, ",", join( ",", map { $data{$_}{$fruit} ? @{ $data{$_}{$fruit} } : ",," } 1 .. $filenum ), "\n";
}

这给了我：

apples,48,12,7,51,8,6,11,12,13,14,12,8
grape,,,,87,42,12,81,5,8,,,
orange,22,6,1,,,,,,,5,7,9
pear,17,16,2,22,3,7,11,5,6,,,

So do 你有一个错字对于葡萄或我误会了什么?