use Memoize qw/memoize/;
use MP3::Tag qw//;
use Ogg::Vorbis::Header::PurePerl;
+use MP4::Info qw/get_mp4tag get_mp4info/;
use DB_File qw//;
use File::Basename qw/fileparse/;
}
}
+sub mp4_format ($){
+ my $encoding = $_[0];
+ return 'AAC' if $encoding eq 'mp4a';
+ return 'ALAC' if $encoding eq 'alac';
+ "MP4-$encoding"
+}
+
+sub mp4info{
+ my $file=$_[0];
+ my %tag = %{get_mp4tag $file};
+ my %info = %{get_mp4info $file};
+ $file = scalar fileparse $file;
+
+ freeze +{
+ format => mp4_format $info{ENCODING},
+ title => $tag{TITLE} || '?',
+ artist => $tag{ARTIST} || '?',
+ year => $tag{YEAR} || '?',
+ album => $tag{ALBUM} || '?',
+ tracknumber => $tag{TRACKNUM} || '?',
+ tracktotal => ($tag{TRKN} ? $tag{TRKN}->[1] : undef) || '?',
+ genre => $tag{GENRE} || '?',
+ file => $file,
+ };
+}
+
sub normalizer{
"$_[0]|".(stat $_[0])[9]
}
sub run {
if ($cache) {
tie my %cache, 'DB_File', $cache, O_RDWR|O_CREAT, 0644;
- memoize $_, NORMALIZER => \&normalizer, LIST_CACHE => 'MERGE', SCALAR_CACHE => [HASH => \%cache] for qw/flacinfo mp3info vorbisinfo/;
+ memoize $_, NORMALIZER => \&normalizer, LIST_CACHE => 'MERGE', SCALAR_CACHE => [HASH => \%cache] for qw/flacinfo mp3info vorbisinfo mp4info/;
}
my %files;
$info = thaw flacinfo $file if $file =~ /\.flac$/i;
$info = thaw mp3info $file if $file =~ /\.mp3$/i;
$info = thaw vorbisinfo $file if $file =~ /\.og(?:g|a)$/i;
+ $info = thaw mp4info $file if $file =~ /\.mp4|\.aac|\.m4a$/i;
next unless defined $info;
- my $basename = fileparse $file, '.flac', '.mp3', '.ogg', '.oga';
+ my $basename = fileparse $file, '.flac', '.mp3', '.ogg', '.oga', '.mp4', '.aac', '.m4a';
$files{$basename} //= [];
push $files{$basename}, $info;
}