Dateien suchen in bestimten ordner ?

[Ruen]

Hi,

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 )

$dateinummer = 0;
print"Verzeichnis eingeben: ";
$verzeichnis = <STDIN>;
suchen nach mp3 dateien in $verzeichnis;
while ( immernoch dateien da ) {
$dateinummer ++;
print "$dateinummer $dateiname $dateilaenge <br>";  <--- das soll in die
} else {                                                 HTML datei
print "</body></html>"; }

ich hoff ihr versteht mein gebrabbel :D
thx im voraus Ruen

[wunderwarzenschwein]

Hi,

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 )

http://www.perldoc.com/perl5.8.0/pod/func/opendir.html

HTH

wunderwarzenschwein

[TorstenA]

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