読者です 読者をやめる 読者になる 読者になる

Perl - CPAN - MP3::Tagパッケージ

ここに掲載するものは、塚本さんにパッケージ化して頂いているZaurus用Perl 5.6.1に追加でインストールするPerlライブラリのMP3::Tagである。
ソースはここからダウンロードし、dev-img-1.3でセルフコンパイルした。
セルフコンパイルとは言っても、実際にはPerlスクリプトだけでできている。

download:lib-perl-mp3-tag_0.9708-1_arm.ipk

手始めの使い方は以下の通りである。

# 指定されたファイルの情報を表示
use MP3::Tag;
print "Title,Track,Artist,Album,Comment,Year,Genre\n";
foreach $fname (@ARGV) {
    $mp3 = MP3::Tag->new($fname);
    if (!$mp3) {
        if (-f $fname) {
            print "can't read MP3 tag from $fname\n";
        } else {
            print "$fname not found\n";
        }
        next;
    }
    @tag = $mp3->autoinfo();
    # Genreで同じ内容が重複することがあるので調整
    $n = length($tag[6]);
    if (($n & 1) == 0) {
        $fmt = "a" . ($n / 2);
        ($s1, $s2) = unpack($fmt x 2, $t);
        if ($s1 eq $s2) {
            $tag[6] = $s1;
        }
    }
    $s = "";
    foreach $t (@tag) {
        $s .= "\"$t\",";
    }
    chop($s);
    print "$s\n";
}

MP3::Tagの詳細は以下をご覧頂きたい。
英語:http://search.cpan.org/~ilyaz/MP3-Tag-0.9709/Tag.pm