perl - PerlでMP3ファイルからID3v2タグを読み取るにはどうすればよいですか

Question

提供された MP3 から ID3v2 タグを読み取り、すべての情報を Perl で出力するにはどうすればよいですか? サンプルコードをいただければ幸いです

Answer 1

多くの異なるオプションがあるようです：

• Audio::TagLib
• オーディオ::スキャン
• MP3::ID3Lib
• MP3::情報
• MP3::タグ
• MPEG::ID3v2タグ
• ...そして、おそらくあといくつか欠けている

これらのモジュールはすべてドキュメントで例を提供しているため、簡単に始めることができます。

これらすべてから、Audio::TagLib で試してみましたが、個人的にはライブラリとモジュールのインストールに 30 分も費やしたので、終了して MP3::Tag を確認すると、すぐに次のように動作しました魅力。

だからここに私がうまくテストした小さな例があります:

use strict;
use warnings;
use MP3::Tag;
use Data::Dumper;

my $mp3 = MP3::Tag->new("anthony_rother-phobos.mp3");
$mp3->get_tags();
my $id3v2 = $mp3->{ID3v2} if exists $mp3->{ID3v2};
print Dumper($id3v2); #returns an MP3::Tag::ID3v2=HASH object