nicht angemeldet
Hallo Ruen,
wie kann ich Mp3 dateien in einem bestimmten ordner suchen, der zuvor in einer variablen angegeben wird? Die gefundenen Dateien sollen dann nach namen sortiert werden und in einer HTML datei gespeichert werden ( also so z.b. --> (Ist jetzt kein richtiges Perl sondern einfach nur schnell zum verstehen :D )
Nutze das Modul File::Find:
http://www.perldoc.com/perl5.8.0/lib/File/Find.html
Kleines Beispiel:
#!/usr/bin/perl -w
use strict;
use warnings;
use File::Find;
use CGI qw(param);
my @mp3_liste;
my $verzeichnis = param('verz'); # oder wie auch immer du an das Verzeichnis kommst
find(&musikliste, $verzeichnis);
alle gefundenen MP3 befinden sich nun im Array @mp3_liste
die kannst du nun sortieren und in eine Datei schreiben
sub musikliste {
if ( $_ =~ /.mp3$/ ) { # oder eine andere Dateierweiterung
push(@mp3_liste, $_);
}
return;
}
Grüße
Torsten