使用Perl合併多個csv文件

Question

我是Perl的新手，所以對於簡單的問題感到抱歉。

我有一個產生7個CSV文件的Perl腳本。所有這些文件都有8個共同的列標題。

的文件名稱將保持不變，每個文件只有8列，總是會有在每列值數據。

每個文件大小決不會小於400K大。

我想這些CSV文件合併成使用Perl一個文件。輸出將具有與所有7個文件相同的列標題和數據。

Answer 1

如果你是在某種Unix的，你可以使用tail。

$ tail -qn +2 fileA fileB ... 

-q supresses filenames in the output;第二行開始輸出-n +2。

要獲得頭以及：

$ (head -n 1 fileA; tail -qn +2 fileA fileB ...) > output-file 

如果你需要使用Perl：

use strict; use warnings; use autodie; 
my $files = $#ARGV; # get number of files - 1 
while (my $file = shift @ARGV) { 
    open my $fh, "<", $file; 
    <$fh> unless $files == @ARGV; # discard header unless first file 
    print while <$fh>; # output the rest 
} 

然後：$ perl the-script.pl fileA fileB ...