Perl: Filehandles objektorientiert

Mit lexikalischen Filehandles ist es in Perl leicht möglich, File-I/O objektorientiert zu kapseln. Hier zur Veranschaulichung eine Klasse Filehandle mit drei Methoden: new() (Datei öffnen), close() (Datei schließen) und slurp() (Datei komplett einlesen):

Beispiel: Lies eine Datei komplett ein und gib sie auf STDOUT aus

1 use Filehandle;
2 
3 my $fh = Filehandle->new('<',$file);
4 print $fh->slurp;
5 $fh->close;

Der Clou: Die Filehandle $fh kann unabhängig von der Klasse wie jede andere Perl-Filehandle benutzt werden, z.B. mit dem Diamant-Operator <> oder jeder anderen Filehandle-Operation wie read(), write() usw. Obiges Programm lässt sich also auch so implementieren:

1 use Filehandle;
2 
3 my $fh = Filehandle->new('<',$file);
4 while (<$fh>) {
5     print;
6 }
7 $fh->close;