Hinweis: Das Forum wird geschlossen! Neue Registrierungen sind nicht mehr möglich!

 Zurück zu Pro-Linux   Foren-Übersicht   FAQ     Suchen    Mitgliederliste
Dauer eines MP3 mit Perl herausfinden

 
Neuen Beitrag schreiben   Auf Beitrag antworten    Pro-Linux Foren-Übersicht -> Programmieren - Allgemein
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
TuxBender
Gast





BeitragVerfasst am: 02. Aug 2003 8:08   Titel: Dauer eines MP3 mit Perl herausfinden

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
Gast





BeitragVerfasst am: 04. Aug 2003 1:04   Titel: Re: Dauer eines MP3 mit Perl herausfinden

Wenn es nur um die Abspiellänge geht, reicht dir das Perlmodul mp3info:
http://search.cpan.org/author/JV/mp3info-1.02/script/mp3info

Für Informationen die im ID3v1 oder ID3v2 Tag hinterlegt sind, solltest du dir MP3::Info anschauen:
http://search.cpan.org/author/CNANDOR/MP3-Info-1.02/Info.pm


code:

#!/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\n", $datenspeicher->{SECS} );
printf("Laenge in MM:SS: %s\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\n", $mp3->time, $mp3->title);

__END__

 

Beiträge vom vorherigen Thema anzeigen:   
     Pro-Linux Foren-Übersicht -> Programmieren - Allgemein Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehen Sie zu:  

Powered by phpBB © phpBB Group
pro_linux Theme © 2004 by Mandaxy