连接几个文件

Question

我需要将20个.txt文件连接成一个UTF-8编码文件。这20个文件都在同一目录中。 你能帮助我吗 ？ 我在考虑那样的事情

use strict;
use warnings;

my $fichier = "*.txt";
    open(FIC,">>:encoding(UTF-8)", $fichier) o
    close (FIC);

<>;

Answer 1

如果输入和输出具有相同的编码，则无需经过解码和重新编码。

print while <>;

例如，

perl -e'print while <>' *.txt >combined_file.txt

或只是

perl -pe1 *.txt >combined_file.txt

或只是

cat *.txt >combined_file.txt

如果您不希望将通配符作为参数传递，则可以使用以下命令：

my @qfns = glob('*.txt');

然后，您可以依次打开每个文件。