Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • I stole your ogg stuff, then massaged (no autoload).

    http://crazyinsomniac.perlmonk.org/perl/files/Audio-Info-0.01.tar.gz

            use Audio::Info;
            {
                    local $\ = "\n";
                    my $song = Audio::Info->new('t/test.mp3') or die "something's wrong $@";
                    print ref $song; # Audio::Info::MP3
                    print 'title ', $song->title;
                    print 'artist ', $song->artist;
                    print 'album ', $song->album;
                    print 'track ', $song->track;
                    print 'year ', $song->year;
                    print 'genre ', $song->genre;
                    print 'length ', $song->length; # seconds
                    print 'frequency ', $song->frequency; # hertz
            }
            __END__