Dauer eines MP3 mit Perl herausfinden

Post Reply
Message
Author
TuxBender

Dauer eines MP3 mit Perl herausfinden

#1 Post by TuxBender »

Hallo
Weiss jemand wie ich die Dauer eines MP3 mit Perl irgendwie herausfinden kann. Hab schon versucht mit selber ausrechnen (Bitrate und Größe des MP3) funzte aber net so.
Irgendwelche Ideen?

MFG

Descartes

Re: Dauer eines MP3 mit Perl herausfinden

#2 Post by Descartes »

Wenn es nur um die Abspiellänge geht, reicht dir das Perlmodul mp3info:
<a href="http://search.cpan.org/author/JV/mp3inf ... pt/mp3info" target="_blank"><!--auto-->http://search.cpan.org/author/JV/mp3inf ... <!--auto-->

Für Informationen die im ID3v1 oder ID3v2 Tag hinterlegt sind, solltest du dir MP3::Info anschauen:
<a href="http://search.cpan.org/author/CNANDOR/M ... 02/Info.pm" target="_blank"><!--auto-->http://search.cpan.org/author/CNANDOR/M ... <!--auto-->


<blockquote><pre><font size="1" face="">code:</font><hr><font face="Courier New" size="2">
#!/bin/perl
#----------------------------------
use strict;
use warnings;
use diagnostics;
#----------------------------------
use mp3info; # fuer get_mp3info()
use MP3::Info; # fuer get_mp3tag()

my $datei = 'Pearls_Before_Swine.mp3';

#
# ab hier jetzt mp3info verwenden
#
my %datenspeicher = get_mp3info ($datei);

printf("Laenge in Sekunden: %s\<!--no-->n", $datenspeicher->{SECS} );
printf("Laenge in MM:SS: %s\<!--no-->n", $datenspeicher->{TIME} );

#
# ab hier jetzt MP3::Info verwenden
#
my $tag = get_mp3tag($file) or die "No TAG info";
my $mp3 = new MP3::Info $file;
printf("$file length is %s, title is %s\<!--no-->n", $mp3->time, $mp3->title);

__END__
</font><hr></pre></blockquote>

Post Reply