--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/prog/04.pl	Sat Aug 21 13:03:13 2021 +0900
@@ -0,0 +1,17 @@
+# ランダム文字列でファイルを埋める
+
+my @z = split //, "abcdefghijklmnopqrstuvwxyz0123456789";
+for (1..541) {
+	my $fn;
+	$fn .= $z[int(rand scalar @z)] for (1..8);
+	$fn .= sprintf "%04d", $_;
+	$fn .= $z[int(rand scalar @z)] for (1..4);
+
+	open my $f, '>', $fn;
+	for (1..1024) {
+		print {$f} $z[int(rand scalar @z)] for (1..48);
+		print {$f} "\n";
+	}
+	close $f;
+}
+