おとボクのファイル名付けてました

ファイル名がRDからのものなので　おとボク 10-17 .avi とかになってるので
其れの変更...

http://cal.syoboi.jp/tid/737/time
からDATAコピペして、

#/bin/perl

$DATA = <<DATA;
乙女はお姉さまに恋してる
	終	11/28(火) 8:28	_
サンテレビジョン	2006-10-09(月) 24:00	30	1 	口紅(ルージュ)をひいた王子様
	新！	2006-10-08	_
サンテレビジョン	2006-10-16(月) 24:00	30	2 	けせない消しゴム
		2006-09-16	_
サンテレビジョン	2006-10-23(月) 24:00	30	3 	おとめが乙女を選ぶ時
		2006-09-16	_
サンテレビジョン	2006-10-30(月) 24:00	30	4 	開かずの扉の眠り姫
		2006-09-16	_
サンテレビジョン	2006-11-06(月) 24:00	30	5 	真夜中の教会(チャペル)
		2006-09-16	_
サンテレビジョン	2006-11-13(月) 24:00	30	6 	夏の日の狂想曲(カプリッツィオ)
		2006-09-16	_
サンテレビジョン	2006-11-20(月) 24:00	30	7 	小っちゃな妹(かな)と大きなリボン
		2006-09-16	_
サンテレビジョン	2006-11-27(月) 24:00	30	8 	縮まらない記録(タイム)
		2006-09-16	_
サンテレビジョン	2006-12-04(月) 24:00	30	9 	まりやの気持ち
		2006-09-16	_
サンテレビジョン	2006-12-11(月) 24:00	30	10 	二人のジュリエット
		2006-09-16	_
サンテレビジョン	2006-12-18(月) 24:00	30	11 	戸惑いの練習曲(エチュード)
		2006-09-16	_
サンテレビジョン	2006-12-25(月) 24:00	30	12 	ラストダンスは永遠に
	終	2006-09-16	_

	
すべてのデータは無保証です。誤情報が登録されている場合もあります。
データを編集する場合は設定ページから。要望や意見や修正依頼は通報ページから。

DATA

#(\S+)	(\S+) (\S+)	(\S+)	(\S+) 	(\S+)$
#(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)

@DATA = split(/\n/, $DATA);
foreach (@DATA)

{
     (/(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/);
    printf( "[$2] %s #%02u %s.avi\n", $DATA[0], $5, $6) if($5);
}

↑rename.pl

> perl rename.pl | sort | uniq
[2006-10-09(月)] 乙女はお姉さまに恋してる #01 口紅(ルージュ)をひいた王子様.avi
[2006-10-16(月)] 乙女はお姉さまに恋してる #02 けせない消しゴム.avi
[2006-10-23(月)] 乙女はお姉さまに恋してる #03 おとめが乙女を選ぶ時.avi
[2006-10-30(月)] 乙女はお姉さまに恋してる #04 開かずの扉の眠り姫.avi
[2006-11-06(月)] 乙女はお姉さまに恋してる #05 真夜中の教会(チャペル).avi
[2006-11-13(月)] 乙女はお姉さまに恋してる #06 夏の日の狂想曲(カプリッツィオ).avi
[2006-11-20(月)] 乙女はお姉さまに恋してる #07 小っちゃな妹(かな)と大きなリボン.avi
[2006-11-27(月)] 乙女はお姉さまに恋してる #08 縮まらない記録(タイム).avi
[2006-12-04(月)] 乙女はお姉さまに恋してる #09 まりやの気持ち.avi
[2006-12-11(月)] 乙女はお姉さまに恋してる #10 二人のジュリエット.avi
[2006-12-18(月)] 乙女はお姉さまに恋してる #11 戸惑いの練習曲(エチュード).avi
[2006-12-25(月)] 乙女はお姉さまに恋してる #12 ラストダンスは永遠に.avi

ああ　ツールに仕上げた方がよさそうだな。。