#!/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 =