DBD-RAM
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
my @files = grep /mp3$/i, readdir D;
@files = map ( $_ = $dir . $_, @files);
closedir(D) || print "Couldn't read '$dir':$!";
return @files;
}
sub get_mp3_tag {
my($file) = shift;
open(I,$file) || return '';
binmode I;
local $/ = '';
seek I, -128, 2;
my $str = <I> || '';
return '' if !($str =~ /^TAG/);
$file = sprintf("%-255s",$file);
$str =~ s/^TAG(.*)/$file$1/;
my $genre = $str;
$genre =~ s/^.*(.)$/$1/g;
$str =~ s/(.)$//g;
$genre = unpack( 'C', $genre );
my @genres =("Blues", "Classic Rock", "Country", "Dance", "Disco", "Funk", "Grunge", "Hip-Hop", "Jazz", "Metal", "New Age", "Oldies", "Other", "Pop", "R&B", "Rap", "Reggae", "Rock", "Techno", "Industrial", "Alternative", "Ska", "Death Metal", "Pranks...
view all matches for this distributionview release on metacpan - search on metacpan
( run in 2.382 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )