Mercurial > mercurial > hgweb_iklist.hg.cgi

comparison prog/05.pl @ 0:520044113ef0 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 (glob "*") {
5 my $fn;
6 $fn .= $z[int(rand scalar @z)] for (1..8);
7 $fn .= $_;
8 $fn .= $z[int(rand scalar @z)] for (1..4);
9 rename $_, $fn;
10 }
11