Mercurial > mercurial > hgweb_iklist.hg.cgi

annotate prog/04.pl @ 2:c0f76f8e67fa draft v1.0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
author pyon <pyon@macmini>
date Sat, 28 Aug 2021 09:56:40 +0900
parents 520044113ef0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
1 # ランダム文字列でファイルを埋める
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
2
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
3 my @z = split //, "abcdefghijklmnopqrstuvwxyz0123456789";
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
4 for (1..541) {
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
5 my $fn;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
6 $fn .= $z[int(rand scalar @z)] for (1..8);
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
7 $fn .= sprintf "%04d", $_;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
8 $fn .= $z[int(rand scalar @z)] for (1..4);
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
9
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
10 open my $f, '>', $fn;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
11 for (1..1024) {
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
12 print {$f} $z[int(rand scalar @z)] for (1..48);
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
13 print {$f} "\n";
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
14 }
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
15 close $f;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
16 }
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
17