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
Dauer eines MP3 mit Perl herausfinden
Re: Dauer eines MP3 mit Perl herausfinden
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>
<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>