« ボタン絵ジェネレーター | メイン | BRender.axの内包 »
2004年09月30日
日常の備忘録:: perlの1行スクリプト
Tweet @jin1016をフォローコマンドラインで、正規表現を入力してリネームするツールでも作ろうかなぁと考えていてふと気付く。
perlにやらせれば事足りると。
次のような感じ。
perl -e "foreach( glob(\"*.jpg\") ){ $nam=$_;s/00\.jpg/\.jpg/g;rename($nam,$_);}"
スクリプト内の"をエスケープしないといけないのは面倒だけど、結構お手軽。
ミスることも考えて待避しておけば万全かな。
1行スクリプトは他にもいろいろと使いでがありそう。
PerlMagic(ImageMagic)とか。
投稿者 Takenori : 2004年09月30日 03:19
comments powered by Disqus