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