以特定順序合併文件夾中的所有文檔並對合並後的輸出進行排序

Question

我不是程序員，我只是安裝活動的perl。 我在哪裏可以找到信息來完成以下操作。

文件夾中

我有不同的TXT文檔， 我想合併前兩個，結果在穩定方式 進行排序，並將其保存在一個名爲子文件夾一個新的文檔：合併。

然後對下面的txt文檔和其他2個文檔做同樣的處理。 這種方式直到完成所有文件。

---

目錄中的文件如下所示。

subtitle(english).txt 
subtitle(spanish).txt 
othername1(english).txt 
othername1(spanish).txt 
etc etc 

它們被放置，英文版和下面的西班牙語版本如果按字母順序排序。

我需要合併兩個第一，然後其他人（當時2，所以它不混合數據）合併兩個內容合併後

應該是這樣的：

1.- <english> hi 
1.- <spanish> hola. 
2.- <english> thanks 
2.- <spanish> gracias 

，因爲每個文件的原始順序都是英文。

1.- <english> hi 
2.- <english> thanks 

感謝 關於輸出名稱，可能是什麼，或者相同的名稱爲英語或西班牙語，意思是第一或第二個文件。

Answer 1

我認爲這應該適合你，但我無法輕鬆測試。

use strict; 
use warnings; 
use autodie; 

my @files = do { 
    opendir my $dh, '.'; 
    sort grep /\.txt\z/, grep -f, readdir $dh; 
}; 

my $re = qr/\A ([^()]+?) \s* \(\s* (.+) \s* \) [^()]+ \z /ix; 

my @badfiles = grep $_ !~ $re, @files; 
if (@badfiles) { 
    print STDERR "These file names do not match the expected pattern\n"; 
    print STDERR " $_\n" for @badfiles; 
    print STDERR "\n"; 
    die "Invalid input files"; 
} 

mkdir 'merged' unless -d 'merged'; 

while (@files > 1) { 

    my @files = splice @files, 0, 2; 
    my @fh = map { open my $fh, '<', $_; $fh } @files; 
    my @details = map [ $_ =~ $re ], @files; 
    my $newfile = sprintf "merged/%s(%s-%s).txt", 
     $details[0][0], 
     $details[0][1], 
     $details[1][1]; 

    printf "%s + %s => %s ... ", @files, $newfile; 

    open my $out_fh, '>', $newfile; 
    until (grep eof, @fh) { 
    print $out_fh scalar readline $_ for @fh; 
    } 
    close $out_fh; 

    print "done\n"; 
}