阅读量:5
在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到指定的文件数量。在每次循环中，计算出当前文件的文件名，并使用打开文件句柄的方式创建文件。在文件句柄中写入文件内容，然后关闭文件句柄。最后输出成功生成的文件数量。
运行上述代码后，将生成以文件名前缀加数字为文件名的多个文件，并在每个文件中写入一行内容。
