「ぎょーむ日誌」目次に戻る | KuboWeb top に戻る | twilog | atom

ぎょーむ日誌 2000-04-26

苦情・お叱りは, たいへんお手数かけて恐縮ですが, 久保 (kubo@ees.hokudai.ac.jp) までお知らせください.

2000 年 04 月 26 日 (水)

	それなら File:Find.pm も使って
		perl -MFile::Find -e '&find(sub { rename($_, lc) if -f; }, @ARGV);' .
	という one-liner はどうでしょう?ディレクトリ部分は面倒を
	見てもらえるので楽になります。
	他のバージョンとしては
		find . -type f -print | \
		perl -lne '($n = $_) =~ s|/[^/]+$|\L$&|; rename($_, $n);'
	とか、
		find . -type f -print | \
		while read NAME
		do
			D=`dirname  $NAME`
			F=`basename $NAME`
			(cd $D && mv $F `echo $F | tr '[A-Z]' '[a-z]'`)
		done
	なんかも…


KuboLog | KuboWeb