(Perl) MP3::Tag を用いた ID3v2タグの読み取り・書き込み (r271-635)

#!/usr/bin/perl use warnings; use strict; use MP3::Tag; my $mp3 = MP3::Tag->new('test.mp3') or die; $mp3->get_tags() or die; if (exists $mp3->{ID3v2}){ my $id3v2 = $mp3->{ID3v2}; # ID3よりタグを読み込む my $title = $id3v2->get_frame('TIT2'); my $artist = $id3v2->get_frame('TPE1'); my $album = $id3v2->get_frame('TALB'); my $year = $id3v2->get_frame('TYER'); my $track = $id3v2->get_frame('TRCK'); my $genre =

[kenjiro_n]

Ubuntu 18.04LTSでは apt install libmp3-tag-perl でこのモジュールが使えるようになった。