Perl 连接多个文件

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

use strict;
use warnings;

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

<>;

使用严格；
使用警告；
my$fichier=“*.txt”；
打开（FIC，“>>：编码（UTF-8）”，$fichier）o
关闭（FIC）；
;

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

print while <>;

或者只是

perl -pe1 *.txt >combined_file.txt

cat *.txt >combined_file.txt

---

如果不希望将通配符作为参数传递，可以使用以下选项：

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

---

然后，您可以依次打开这些文件。

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

print while <>;

或者只是

perl -pe1 *.txt >combined_file.txt

cat *.txt >combined_file.txt

---

如果不希望将通配符作为参数传递，可以使用以下选项：

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

---

---

然后，您可以依次打开这些文件。

cat*.txt>combined_file.txt

这些文件当前使用的编码是什么？为什么你认为你需要Perl呢？我需要使用Perl，因为它是我所知道的唯一语言lol。而当前的编码是UTF8。所以，如果你在unixy系统上，请使用@HunterMcMillen的建议。在Windows上，使用

copy/b*.txt combined_file.txt

cat*.txt>combined_file.txt

文件的当前编码是什么？为什么你认为你需要Perl呢？我需要使用Perl，因为它是我所知道的唯一语言lol。而当前的编码是UTF8。所以，如果你在unixy系统上，请使用@HunterMcMillen的建议。在Windows上，使用

copy/b*.txt组合_file.txt

，也可以使用prepend

@ARGV=glob'*.txt'。也许
@ARGV | |=glob'*.txt'
？为了使它在
cmd.exe
中更灵活，请使用
copy/b*.txt组合文件.txt
@Hunter-McMillen，我想你的意思是
@ARGV=glob'*.txt'如果@ARGV，但这将是非常不传统的。我建议不要it@ikegami是的，这就是我的意思。这只是在脚本默认全局化所有文本文件的情况下，我认为这也不是一个好主意。也许
@ARGV | |=glob'*.txt'
？为了使它在
cmd.exe
中更灵活，请使用
copy/b*.txt组合文件.txt
@Hunter-McMillen，我想你的意思是
@ARGV=glob'*.txt'如果@ARGV，但这将是非常不传统的。我建议不要it@ikegami是的，这就是我的意思。这只是在脚本默认全局显示所有文本文件的情况下，我认为这也不是一个好主意。