在Perl中，可以使用循環來批量生成文件。以下是一個示例代碼：
use strict;
use warnings;
# 定義文件名前綴和文件數量
my $prefix = "file";
my $num_files = 10;
# 循環生成文件
for (my $i = 1; $i <= $num_files; $i++) {
my $filename = $prefix . $i . ".txt";
open(my $file, '>', $filename) or die "無法創建文件 $filename: $!";
# 寫入文件內容
print $file "這是文件 $i 的內容\n";
# 關閉文件句柄
close($file);
}
print "成功生成 $num_files 個文件\n";
在上述示例中，首先定義了文件名的前綴和文件數量。然后使用一個循環來生成文件，循環從1到指定的文件數量。在每次循環中，計算出當前文件的文件名，并使用打開文件句柄的方式創建文件。在文件句柄中寫入文件內容，然后關閉文件句柄。最后輸出成功生成的文件數量。
運行上述代碼后，將生成以文件名前綴加數字為文件名的多個文件，并在每個文件中寫入一行內容。
