Perl - CPAN - MP4::Infoパッケージ

Zaurus

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

download：lib-perl-mp4-info_1.11-1_arm.ipk

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

# 指定されたファイルの情報を表示
use MP4::Info;
@info = qw(TITLE TRACKNUM TIME ARTIST ALBUM COMMENT DAY GENRE);
print join(",", @info) . "\n";
foreach $fname (@ARGV) {
    $tagp = get_mp4tag($fname);
    if (defined($tagp)) {
        $s = "";
        foreach $t (@info) {
            $s .= "\"$tagp->{$t}\",";
        }
        chop($s);
        print "$s\n";
    }
}

MP4::Infoの詳細は以下をご覧頂きたい。
英語：http://search.cpan.org/~jhar/MP4-Info-1.11/Info.pm