Mercurial > mercurial > hgweb_iklist.hg.cgi
comparison prog/04.pl @ 0:520044113ef0 draft
beta release.
| author | pyon <pyon@macmini> |
|---|---|
| date | Sat, 21 Aug 2021 13:03:13 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:520044113ef0 |
|---|---|
| 1 # ランダム文字列でファイルを埋める | |
| 2 | |
| 3 my @z = split //, "abcdefghijklmnopqrstuvwxyz0123456789"; | |
| 4 for (1..541) { | |
| 5 my $fn; | |
| 6 $fn .= $z[int(rand scalar @z)] for (1..8); | |
| 7 $fn .= sprintf "%04d", $_; | |
| 8 $fn .= $z[int(rand scalar @z)] for (1..4); | |
| 9 | |
| 10 open my $f, '>', $fn; | |
| 11 for (1..1024) { | |
| 12 print {$f} $z[int(rand scalar @z)] for (1..48); | |
| 13 print {$f} "\n"; | |
| 14 } | |
| 15 close $f; | |
| 16 } | |
| 17 |