ファイル名情報しょぼカレからコピペしてファイル名変更してました。
RDから取ったファイル名は xxxxx DD-MM.avi にしてるから。変更かけました。
しょぼカレから番組情報コピペ
http://192.168./@@@@@@cal.syoboi.jp/tid/903/time より
DATA 〜 DATA 間にはりつけ
(↓ renameコマンド吐くスクリプト)
#/bin/perl $DATA = <<DATA; WOWOW 2005-11-03(木) 24:00 30 1 あふれちゃって 恥ずかしい 新! 2005-09-13 _ WOWOW 2005-11-10(木) 24:00 30 2 あたしの好みは 恥ずかしい 2005-09-13 _ WOWOW 2005-11-17(木) 24:00 30 3 幸せって 恥ずかしい 2005-09-13 _ WOWOW 2005-11-24(木) 24:00 30 4 バレちゃって 恥ずかしい 2005-09-13 _ WOWOW 2005-12-01(木) 24:00 30 5 家族そろって 恥ずかしい 2005-09-13 _ WOWOW 2005-12-08(木) 24:00 30 6 母さん元気で 恥ずかしい 2005-09-13 _ WOWOW 2005-12-15(木) 24:05↓5 30 7 追っかけられて 恥ずかしい ! 2005-10-27 _ WOWOW 2005-12-22(木) 24:00 30 8 みつかっちゃって 恥ずかしい 12/29は放送休止 ! 2005-10-27 _ WOWOW 2006-01-05(木) 24:00 30 9 ふりかえると… 恥ずかしい ! 2005-10-27 _ WOWOW 2006-01-12(木) 24:00 30 10 パパはとっても 恥ずかしい 1/19は放送休止 2005-11-28 _ WOWOW 2006-01-26(木) 24:00 30 11 夏だ!プールだ! 恥ずかしい! ! 2005-11-28 _ WOWOW 2006-02-02(木) 24:00 30 12 やっぱり兄キは 恥ずかしい 2/9は放送休止 2005-12-27 _ WOWOW 2006-02-16(木) 24:00 30 13 めざめちゃって 恥ずかしい ! 2005-12-27 _ WOWOW 2006-02-23(木) 24:00 30 14 ふたりで朝まで 恥ずかしい 2005-12-27 _ WOWOW 2006-03-02(木) 24:00 30 15 エルダ登場!で 恥ずかしい 2005-12-27 _ WOWOW 2006-03-09(木) 24:00 30 16 エルダの恋バナは 恥ずかしい 2005-12-27 _ WOWOW 2006-03-16(木) 24:00 30 17 さらばエルダで 恥ずかしい 2005-12-27 _ WOWOW 2006-03-23(木) 24:00 30 18 兄キのヒミツは 恥ずかしい 2005-12-27 _ WOWOW 2006-03-30(木) 24:05↓5 30 19 ふたりのイブは 恥ずかしい ! 2006-01-27 _ WOWOW 2006-04-06(木) 24:00 30 20 はじめての… 恥ずかしい ! 2005-12-27 _ WOWOW 2006-04-13(木) 24:00 30 21 どうすればいいのか 恥ずかしい 2005-12-27 _ WOWOW 2006-04-20(木) 24:15↓15 30 22 迷い子みたいに恥ずかしい ! 2006-03-11 _ WOWOW 2006-04-27(木) 24:00 30 23 サヨナラは 恥ずかしい 5/4は放送休止 ! 2006-03-27 _ WOWOW 2006-05-11(木) 24:15↓15 30 24 いつもふたりは 恥ずかしい 終! 2006-03-27 DATA $dircheck = ''; $renames = ''; @DATA = split(/\n/, $DATA); foreach (@DATA) { $name = 'かりん %%.avi'; $newname = 'かりん %%.avi'; next if(/^$/); (/(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.+)$/); next if($1 =~ /!/); $date = $2; $time = $3; $num = $5; $title = $6; ($y, $m, $d) = ($1, $2, $3) if($date =~ /(\d+)\-(\d\d)\-(\d\d)/); # mon-date ($hh, $mm) = ($1, $2) if($time =~ /(\d\d):(\d\d)/); # hhmm $name =~ s#%%#sprintf("%02u-%02u", $m , $d + ($hh/24) )#e; $newname =~ s#%%#sprintf("\#%02u %s", $num, $title)#e; $escname = 'notexist ' . $name . '->' . $newname ; $escname =~ s/[\(\)\'\"]/x/g; $renames .= qq|rename "$name" "$newname"\n| if($num); $dircheck .= qq|if not exist "$name" (echo "$escname" >> lost.txt)\n| if($num); } print $dircheck; print "\n; ---------------------------- \n"; print $renames;
print された結果を
windowsの方に cmd か telnet でログインして 貼り付け
$ perl a.pl if not exist "かりん 11-04.avi" (echo "notexist かりん 11-04.avi->かりん #01 あふれちゃって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 11-11.avi" (echo "notexist かりん 11-11.avi->かりん #02 あたしの好みは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 11-18.avi" (echo "notexist かりん 11-18.avi->かりん #03 幸せって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 11-25.avi" (echo "notexist かりん 11-25.avi->かりん #04 バレちゃって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 12-02.avi" (echo "notexist かりん 12-02.avi->かりん #05 家族そろって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 12-09.avi" (echo "notexist かりん 12-09.avi->かりん #06 母さん元気で 恥ずかしい.avi" >> lost.txt) if not exist "かりん 12-16.avi" (echo "notexist かりん 12-16.avi->かりん #07 追っかけられて 恥ずかしい.avi" >> lost.txt) if not exist "かりん 12-23.avi" (echo "notexist かりん 12-23.avi->かりん #08 みつかっちゃって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 01-06.avi" (echo "notexist かりん 01-06.avi->かりん #09 ふりかえると… 恥ずかしい.avi" >> lost.txt) if not exist "かりん 01-13.avi" (echo "notexist かりん 01-13.avi->かりん #10 パパはとっても 恥ずかしい.avi" >> lost.txt) if not exist "かりん 01-27.avi" (echo "notexist かりん 01-27.avi->かりん #11 夏だ!プールだ! 恥ずかしい!.avi" >> lost.txt) if not exist "かりん 02-03.avi" (echo "notexist かりん 02-03.avi->かりん #12 やっぱり兄キは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 02-17.avi" (echo "notexist かりん 02-17.avi->かりん #13 めざめちゃって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 02-24.avi" (echo "notexist かりん 02-24.avi->かりん #14 ふたりで朝まで 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-03.avi" (echo "notexist かりん 03-03.avi->かりん #15 エルダ登場!で 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-10.avi" (echo "notexist かりん 03-10.avi->かりん #16 エルダの恋バナは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-17.avi" (echo "notexist かりん 03-17.avi->かりん #17 さらばエルダで 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-24.avi" (echo "notexist かりん 03-24.avi->かりん #18 兄キのヒミツは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-31.avi" (echo "notexist かりん 03-31.avi->かりん #19 ふたりのイブは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 04-07.avi" (echo "notexist かりん 04-07.avi->かりん #20 はじめての… 恥ずかしい.avi" >> lost.txt) if not exist "かりん 04-14.avi" (echo "notexist かりん 04-14.avi->かりん #21 どうすればいいのか 恥ずかしい.avi" >> lost.txt) if not exist "かりん 04-21.avi" (echo "notexist かりん 04-21.avi->かりん #22 迷い子みたいに恥ずかしい.avi" >> lost.txt) if not exist "かりん 04-28.avi" (echo "notexist かりん 04-28.avi->かりん #23 サヨナラは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 05-12.avi" (echo "notexist かりん 05-12.avi->かりん #24 いつもふたりは 恥ずかしい.avi" >> lost.txt) ; ---------------------------- rename "かりん 11-04.avi" "かりん #01 あふれちゃって 恥ずかしい.avi" rename "かりん 11-11.avi" "かりん #02 あたしの好みは 恥ずかしい.avi" rename "かりん 11-18.avi" "かりん #03 幸せって 恥ずかしい.avi" rename "かりん 11-25.avi" "かりん #04 バレちゃって 恥ずかしい.avi" rename "かりん 12-02.avi" "かりん #05 家族そろって 恥ずかしい.avi" rename "かりん 12-09.avi" "かりん #06 母さん元気で 恥ずかしい.avi" rename "かりん 12-16.avi" "かりん #07 追っかけられて 恥ずかしい.avi" rename "かりん 12-23.avi" "かりん #08 みつかっちゃって 恥ずかしい.avi" rename "かりん 01-06.avi" "かりん #09 ふりかえると… 恥ずかしい.avi" rename "かりん 01-13.avi" "かりん #10 パパはとっても 恥ずかしい.avi" rename "かりん 01-27.avi" "かりん #11 夏だ!プールだ! 恥ずかしい!.avi" rename "かりん 02-03.avi" "かりん #12 やっぱり兄キは 恥ずかしい.avi" rename "かりん 02-17.avi" "かりん #13 めざめちゃって 恥ずかしい.avi" rename "かりん 02-24.avi" "かりん #14 ふたりで朝まで 恥ずかしい.avi" rename "かりん 03-03.avi" "かりん #15 エルダ登場!で 恥ずかしい.avi" rename "かりん 03-10.avi" "かりん #16 エルダの恋バナは 恥ずかしい.avi" rename "かりん 03-17.avi" "かりん #17 さらばエルダで 恥ずかしい.avi" rename "かりん 03-24.avi" "かりん #18 兄キのヒミツは 恥ずかしい.avi" rename "かりん 03-31.avi" "かりん #19 ふたりのイブは 恥ずかしい.avi" rename "かりん 04-07.avi" "かりん #20 はじめての… 恥ずかしい.avi" rename "かりん 04-14.avi" "かりん #21 どうすればいいのか 恥ずかしい.avi" rename "かりん 04-21.avi" "かりん #22 迷い子みたいに恥ずかしい.avi" rename "かりん 04-28.avi" "かりん #23 サヨナラは 恥ずかしい.avi" rename "かりん 05-12.avi" "かりん #24 いつもふたりは 恥ずかしい.avi"
変更ウマー。
変更してたら、
\\192.168.2.0\data\data\1\半分の月がのぼる空
フォルダなんだが、
が見つかった。(ぉ
おれ 手抜き過ぎw
ばぐだクマー
$name =~ s#%%#sprintf("%02u-%02u", $m , $d + ($hh/24) )#e;
24時を超えたら日付調整してるのだが、
rename "ARIA(2) 10-32.avi" "ヤマトナデシコ七変化 #04 スナコ、およびです.avi"
問題。
まぁなんだ、こういうの修正めんどくさいから手作業でw