#!/usr/bin/perl
use warnings;
use strict;
use MP3::Tag;
use Data::Dumper;
use Getopt::Long;
my ($dump, $dumpraw, $listframes, $dumpframe, $deletetag, $listtags) = (0,0,0,0,undef,0); # $deletetag = undef = important
GetOptions("dump" => \$dump, "dump-raw" => \$dumpraw, "list-frames" => \$listframes, "dump-frame=s" => \$dumpframe, "delete-tag=i" => \$deletetag, "list-tags" => \$listtags);
if (!$dump && !$listframes && !$dumpframe && !defined $deletetag && !$listtags && !$dumpraw) {
die "You need to specify either --dump, --dump-raw, --list-frames, --dump-frame XXXX, --list-tags or --delete-tag (1 or 2)";
}
if (!(scalar @ARGV)) {
die "You need to specify at least one file!";
}
for my $file (@ARGV) {
my $mp3 = MP3::Tag->new($file);
die "Unable to open file $file, exiting!" unless $mp3;
$mp3->get_tags() or die "Unable to read any ID3 tags!";
if ($dumpraw) {
print Dumper ( \$mp3 );
exit 0;
}
if ($dump) {
if (exists $mp3->{ID3v1}) {
my $id3v1 = $mp3->{ID3v1};
print "File has an ID3v1 tag:\n";
print " Artist: " .$id3v1->artist . "\n";
print " Title: " .$id3v1->title . "\n";
print " Album: " .$id3v1->album . "\n";
print " Year: " .$id3v1->year . "\n";
print " Genre: " .$id3v1->genre . "\n";
print "Comment: " .$id3v1->comment . "\n";
print " Track: " .$id3v1->track . "\n";
print "\n";
}
if (exists $mp3->{ID3v2}) {
my $id3v2 = $mp3->{ID3v2};
print "File has an ID3v2 tag with the following frames/values:\n";
my $frames = $id3v2->get_frame_ids();
$Data::Dumper::Terse = 1;
foreach my $frame (keys %$frames) {
my ($info, $name, @rest) = $id3v2->get_frame($frame);
if (ref $info) {
print "$frame: " . Dumper ( $info );
}
else {
print "$frame: $info\n";
}
}
}
exit 0;
}
if ($listtags) {
if (exists $mp3->{ID3v1}) {
print "$file has an ID3v1 tag\n";
}
if (exists $mp3->{ID3v2}) {
my $v2ver = $mp3->{ID3v2}->version();
print "$file has an ID3v2.$v2ver tag\n";
}
exit 0;
}
if ($deletetag) {
if ($deletetag != 1 && $deletetag != 2) {
die "--delete-tag needs either 1 (ID3v1) or 2 (ID3v2) as an argument!";
}
if ($deletetag == 1) {
if (exists $mp3->{ID3v1}) {
if ($mp3->{ID3v1}->remove_tag()) {
print "Removed ID3v1 tag successfully\n";
exit 0;
}
else {
print "Failed to remove ID3v1 tag!\n";
exit 1;
}
}
else {
print "Track has no ID3v1 tag to remove!\n";
exit 1;
}
}
elsif ($deletetag == 2) {
if (exists $mp3->{ID3v2}) {
if ($mp3->{ID3v2}->remove_tag()) {
print "Removed ID3v2 tag successfully\n";
exit 0;
}
else {
print "Failed to remove ID3v2 tag!\n";
exit 1;
}
}
else {
print "Track has no ID3v2 tag to remove!\n";
exit 1;
}
}
}
if ($dumpframe) {
my $v2 = $mp3->{ID3v2} if exists $mp3->{ID3v2};
if (!defined $v2) {
die "No ID3v2 tag found!";
}
my $frame = $v2->get_frame($dumpframe);
if (!defined $frame || length $frame < 1) {
die "File $file doesn't appear to contain any frame named $dumpframe";
}
print "$dumpframe: ";
binmode STDOUT;
$Data::Dumper::Terse = 1;
print Dumper ( \$frame );
exit 0;
}
if ($listframes) {
my $v2 = $mp3->{ID3v2} if exists $mp3->{ID3v2};
if (!defined $v2) {
die "No ID3v2 tag found!";
}
my $frames = $v2->get_frame_ids();
#while (my ($k, $v) = each(%{$frames})) {
print "File $file contains the following ID3v2 frames:\n";
for my $k (sort keys %{$frames}) {
print "$k: " . $frames->{$k} . "\n";
}
exit 0;
}
}