find と perl 練習

.avi ファイルのファイル名日時が最初だったのをひっくり返す。

find dir -name \*.avi |perl -lne '$a=$_;s/(\d+\-\d+)\-(.*).avi/$2-$1.avi/;rename $a, $_'