Mercurial > mercurial > hgweb_iklist.hg.cgi

diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/prog/05.pl	Sat Aug 21 13:03:13 2021 +0900
@@ -0,0 +1,11 @@
+# ファイル名をランダムにする
+
+my @z = split //, "abcdefghijklmnopqrstuvwxyz0123456789";
+for (glob "*") {
+	my $fn;
+	$fn .= $z[int(rand scalar @z)] for (1..8);
+	$fn .= $_;
+	$fn .= $z[int(rand scalar @z)] for (1..4);
+	rename $_, $fn;
+}
+