ファイル名情報しょぼいカレンダからコピペしてファイル名変更スクリプト

http://d.hatena.ne.jp/ore_de_work/20070103/1167836474
http://d.hatena.ne.jp/ore_de_work/20061226/1167184126

#/bin/perl

$dircheck = '';
$renames  = '';
$basename = "@ARGV"
@ARGV = ();

while(<>)
{
    $name = '$basename %%.avi';
    $newname = '$basename %%.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;