ファイルの 02-もえもえ.wav を もえもえ.wav にするスクリプト 注:cwd で再帰します

#!/bin/perl

use strict;
use warnings;
use File::Path;
use Cwd 'getcwd';
use Fcntl;
use File::Find;
use utf8;

find( \&d, '.' );
                                     
sub d{
	return if($_ eq '.');
	return if($_ eq '..');
	my $file = $_;
	return unless(-f);
	s/^\d+//;
	s/^\-//;
	return if($file eq $_ );
	rename $file, $_;
	print 
"    cwd : " . getcwd . "
 rename : $file -> $_
";
}

print "\n";

こんな感じで動作します

G:\MUSIC>G:\MUSIC\田村ゆかり\rename.pl
    cwd : G:/MUSIC/金元寿子
 rename : 01-DOKI_DOKI_ラブリースイーツ.wav -> DOKI_DOKI_ラブリースイーツ.wav
    cwd : G:/MUSIC/金元寿子
 rename : 03-.ムーンライト スターライト (Mai ver.).wav -> .ムーンライト スターラ
イト (Mai ver.).wav
    cwd : G:/MUSIC/金元寿子
 rename : 04-フォトグラフメモリー (Mai ver.).wav -> フォトグラフメモリー (Mai ve
r.).wav
    cwd : G:/MUSIC/金元寿子
 rename : 01-イカ娘 (金元寿子) _ 侵略ノススメ☆ (Altersquid).wav -> イカ娘 (金元
寿子) _ 侵略ノススメ☆ (Altersquid).wav
    cwd : G:/MUSIC/金元寿子/IKA LOVE
 rename : 02-ULTRA-PRISM _ れもん色の夏.wav -> ULTRA-PRISM _ れもん色の夏.wav
    cwd : G:/MUSIC/金元寿子/IKA LOVE
 rename : 03-宮内タカユキ _ 目覚めよ! 裁きの名を示せ!!.wav -> 宮内タカユキ _ 目
覚めよ! 裁きの名を示せ!!.wav
    cwd : G:/MUSIC/金元寿子/IKA LOVE
 rename : 04-ヒャダイン _ イカ娘の地球侵略マーチ.wav -> ヒャダイン _ イカ娘の地
球侵略マーチ.wav
    cwd : G:/MUSIC/金元寿子/IKA LOVE
 rename : 05-美郷あき _ 愛よ恋よ 水平線でFLASH!!.wav -> 美郷あき _ 愛よ恋よ 水平
線でFLASH!!.wav
    cwd : G:/MUSIC/金元寿子/IKA LOVE
 rename : 06-marble _ 波風スライダー.wav -> marble _ 波風スライダー.wav
    cwd : G:/MUSIC/金元寿子/IKA LOVE
 rename : 07-伊藤真澄 _ 「イカ娘」絵描き歌.wav -> 伊藤真澄 _ 「イカ娘」絵描き歌.
wav
    cwd : G:/MUSIC/金元寿子/IKA LOVE
 rename : 08-妖精帝國 _ 愚かな結末.wav -> 妖精帝國 _ 愚かな結末.wav
    cwd : G:/MUSIC/金元寿子/IKA LOVE
 rename : 09-でんぱ組.inc _ ウミドル☆イカドル☆稼いドル (A.N.K.G).wav -> でんぱ
組.inc _ ウミドル☆イカドル☆稼いドル (A.N.K.G).wav
    cwd : G:/MUSIC/金元寿子/IKA LOVE
 rename : 10-アツミサオリ _ 友達.wav -> アツミサオリ _ 友達.wav
    cwd : G:/MUSIC/金元寿子/早倉舞衣
 rename : 02-お風呂モノローグ -早倉舞衣-.wav -> お風呂モノローグ -早倉舞衣-.wav