Dateien aus Verzeichnis auslesen in Perl

Dateien und Verzeichnisse lassen sich mit Perl schnell und effizient bearbeiten. Wenn man einfach alle Verzeichnisse und Dateien aus einem Verzeichnis in ein Array einlesen will, dann reicht folgender Code:

opendir(DIR, "irgendeinverzeichnis");
@files =  readdir(DIR);
closedir(DIR);

Vorsicht: das Array enthält die Verzeichnisse “.” und “..”, ganz am Anfang. Um diese loszuwerden:

shift @files; shift @files;

Man kann auch gleich das Einlesen per regulärem Ausdruck auf bestimmte Dateien beschränken, für .wav-Dateien sieht das z.B. so aus:

opendir(DIR, $dir);
@files =  grep { /\.wav$/ } readdir(DIR);
closedir(DIR);