Perl: Dirhandles objektorientiert

Analog zu lexikalischen Filehandles besitzt Perl lexikalische Dirhandles. Eine Dirhandle ist ein Iterator über einem Verzeichnis. Die Operationen auf Dirhandles lassen sich objektorientiert kapseln.

Hier eine entsprechende Klasse Dirhandle mit drei Methoden: new() (Directory öffnen), close() (Directory schließen) und next() (nächster Directory-Eintrag):

Beispiel: Gib alle Einträge des Verzeichnisses $dir auf STDOUT aus

1 use Dirhandle;
2 
3 my $dh = Dirhandle->new($dir);
4 while (my $entry = $dh->next) {
5     say $entry;
6 }
7 $dh->close;

Das Dirhandle-Objekt $dh kann wie jede normale Dirhandle an die Perl-Builtins readdir(), telldir(), seekdir(), rewinddir(), closedir() übergeben werden.