ディレクトリ内のファイルのタイムスタンプをアルファベット順に更新する

私はクルマで音楽を聴くとき、USBメモリに楽曲ファイルとプレイリストを格納して、BMWのiDriveに接続しています。iDrive上でお目当てのプレイリストを指定して楽曲を再生させるわけですが、iDriveはプレイリストをアルファベット順に表示できません。プレイリストが増えてくると、お目当てのプレイリストを探し出すだけでも大変です。せめてカテゴリ別に表示できればよいのですが・・・。

で、プレイリストの実体ファイル（*.m3u8）のタイムスタンプ順（新しい順）に表示されることは分かったのですが、ファイルのタイムスタンプをアルファベット順に更新しようと以下のWindowsバッチファイルを作成したところ、大失敗。

forfiles /m *.m3u8 /c "cmd /c copy /b @file +,,"

あまりの実行速度の速さ故、すべてのファイルのタイムスタンプが1秒内に収まってしまい、結局、BMWのメディアサーバが順序を区別できないというお粗末。Windows上ではたしかにアルファベット順にタイムスタンプが更新されているのですが、おそらくiDriveは1秒単位で順序を判断しているものと思われます。

おまけに上記のバッチでは、ドイツ語やフランス語でお馴染みのウムラウトやアンサンテギュ（例：Dvořák）が文字化けして使えません。正確には、NTFSフォーマットのCドライブではUnicodeのコードページがあって文字化けせず使えるのですが、FAT32フォーマットのUSBメモリ上ではコードページがないため、該当ファイルを認識できない、となります。

前置きが長くなりましたが、実行環境がお手軽なバッチを使うのを諦めてPerlを使うことにしました。Windows用のPerl実行環境としては、「Active Perl」、「Strawberry Perl」、「Cygwin」などがあり、いずれも無料で利用できます。Unicodeも利用できるようPPM（Perl Package Manager）でWin32::Unicodeもインストールしておきます。

せっかくPerlを使いますので、プレイリストに含まれる楽曲数をファイル名に付与する機能も追加してスクリプトを組みました。

use strict;
use warnings;
use utf8;
use Win32::Unicode::Native;

# メインルーチン
my $root = ".";
my $filelist = &touch_files($root);

foreach (@$filelist){
print "$_\n";
}

# サブルーチン
sub touch_files {
my $dir = shift;

# ディレクトリ内のプレイリストファイル一覧を取得
opendir (my $dh, "$dir");
my @list = grep /\.m3u8/, readdir $dh;
closedir $dh;
@list = sort @list;

# 現在時刻を取得
my $now = time;

foreach my $file (@list) {
# プレイリストに含まれる曲数をカウント
my $line = 0;
open(my $fh, "+<:utf8", $file) or die "Can't open '$file': $!";
while(<$fh>){
$line++ unless /^\s*$/; # 空行はカウントしない
}
close($fh);

# プレイリストファイル名に曲数を追加
my $new_file = $file;
$new_file =~ s/\s*\(.*\)\.m3u8/\.m3u8/;
$new_file =~ s/\.m3u8/ \($line\)\.m3u8/;
rename($file, $new_file);

# プレイリストファイル名のタイムスタンプを更新
utime $now, $now, $new_file;
$now--;
my @filestat = stat $new_file;
push @$filelist, localtime($filestat[9])." : $new_file";
}

@$filelist = sort {$b cmp $a} @$filelist;
return $filelist;
}

これを実行すると、以下の写真のように、アルファベット順に曲数付きのプレイリストが表示されるようになります。



これでiDriveの使い勝手が良くなる・・・はずです。