[PSP]自分用に

#!/usr/local/bin/perl

foreach $argv (sort @ARGV) {
    my $target = $argv;
    my $ext = substr($target, rindex($target, "."));
    my $dir = substr($target, 0, rindex($target, "\\"));
    my $fna = substr($target, rindex($target, "\\") + 1);
    $fna =~ s/$ext//;

    opendir(DIR, $dir);
    @dirs = readdir(DIR);
    closedir(DIR);

    my $count = 1;
    foreach $file (@dirs) {
        if ($file =~ /^M4V(\d+)$ext/io) {
            my $tmp = $1;
            $tmp =~ s/^0+//;
            $count = $tmp if $tmp > $count;
        }
    }

    my $new = sprintf "$dir\\M4V%05d" . uc($ext), $count + 1;
    rename $target, $new;
    my $thm = "$dir\\$fna.THM";
    if (-f $thm) {
	$new = sprintf "$dir\\M4V%05d.THM", $count + 1;
	rename $thm, $new;
    }
}

というスクリプトを書いてsendtoに置いてみた。いい感じ。

これでPCにある動画はファイル名そのままで、メモステにコピーしてからこのスクリプトで変換するようにすれば管理が楽だな。

まあまだPSP持ってないんだけど。