Perlでファイルをまとめて生成する方法について教えてください。

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から指定したファイル数までを巡回させるループを使用しています。各ループでは現在のファイルのファイル名を計算し、ファイルハンドルを開く形でファイルを作成しています。ファイルハンドルに対してファイルの内容を書き込み、その後ファイルハンドルをクローズしています。最後に、生成に成功したファイル数を表示しています。

上記のコードを実行すると、ファイル名に数字を足した複数のファイルが作成され、各ファイルに一行のコンテンツが書き込まれます。