MPEG::ID3v2Tag 0.37

MPEG::ID3v2Tag is a Perl module that parses and creates ID3v2 Tags for MPEG audio files.

SYNOPSIS

use MPEG::ID3v2Tag ;
use IO::File ;

# create a tag
$tag = MPEG::ID3v2Tag->new() ;
$tag->add_frame("TIT2", "Happy Little Song") ; # one step
$frame = MPEG::ID3Frame::TALB->new("Happy little album") ;
$tag->add_frame($frame) ; # two steps
$tag->add_frame("WCOM", "http://www.mp3.com") ;
$tag->add_frame("APIC", -picture_type => 0, -file => "happy_little_song.gif");
.....
$tag->set_padding_size(256) ;
print OUTFILE $tag->as_string() ;

# read a tag from a file and dump out some data.
$fh = IO::File->new(" binmode $fh;
$tag = MPEG::ID3v2Tag->parse($fh) ;
foreach $frame ($tag->frames()) {
print $frame->frameid(), "n" ; # prints TALB, TIT2, WCOM, etc.
if ($frame->flag_read_only()) {
print " read onlyn" ;
}
if ($frame->fully_parsed() && $frame->frameid =~ /^T.../) {
print " frame text is ", $frame->text(), "n" ;
}
if ($frame->fully_parsed() && $frame->frameid =~ /^W.../) {
print " url is ", $frame->url(), "n" ;
}
}

MPEG::ID3v2Tag is a class capable of parsing and creating ID3v2 revision 3 tags. While not all frames are fully supported, its easy to add support for more.
The object doesnt (currently) support modification of .mp3 files; the caller has to handle the mechanics of prepending the tag to the file.