Der Befehl getc() Liest ein Zeichen aus einer zuvor geöffneten Datei und positioniert den Dateizeiger um ein Zeichen weiter. getc ist die Abkürzung für get Char(akter), zu deutsch hole (ein) Zeichen.
open (my $IN,'<datei.txt') || die "kann datei nicht oeffnen: $!"; while ( !eof($IN) ){ my $zeichen = getc($IN); print $zeichen; } close $IN;
Es wird die Datei datei.txt geöffnet und so lange ein Zeichen eingelesen und ausgegeben, bis das Dateiende erreicht ist.
Übrigens Man könnte anstatt getc() auch ein read($IN,$zeichen,1); anwenden. Und entgegen meiner Einschätzung, daß das wesentlich komplexere read() langsamer sein müßte, hab ich durch eigene Messungen festgestellt, daß read() bis zu dreimal schneller ist als getc()! Selbst wenn nur ein Zeichen eingelesen werden soll, bei mehreren Zeichen sowieso.