ファイルをリネームする Perl ワンライナー

やりたいこと

• あるディレクトリ以下のファイルを別のディレクトリ以下にコピーする。
• コピー元ディレクトリは階層構造。サブディレクトリがある。
• コピー先ディレクトリは階層構造ではない。1つのディレクトリ以下に全ファイルを置く。
• コピー元に同じ名前のファイルがあるとコピー先で重複するため、コピー先のファイル名はコピー元のサブディレクトリ名とファイル名から決める。

コード

$ perl -MFile::Copy -MFile::Find -e 'find sub{
	if(-f){
		$dst_dir="/home/oracle/work/dst";
		$src_file=$File::Find::name;
		if(@a=$src_file=~/^.*\/([a-z]+)\/total\/([eij]{1})\/hoge_([0-9]{8}\.csv)$/){
			$dst_file="$a[0]_$a[1]_$a[2]";
			copy($src_file, "$dst_dir/$dst_file");
		}elsif(@a=$src_file=~/^.*\/([a-z\-]+)\/total\/hoge_([0-9]{8}\.csv)$/){
			$dst_file="$a[0]_$a[1]";
			copy($src_file, "$dst_dir/$dst_file");
		}
	}
},@ARGV' /home/oracle/work/src

関連

• Perl で正規表現にマッチした文字列を変数に入れる - ablog
• 再帰的にファイル名に接頭辞をつける Perl ワンライナー - ablog