$position ist die aktuelle Byteposition. Wenn ein Fehler aufgetreten ist, wird ein -1 zurückgegeben.
my $Datei = "test.txt"; my $Wort; open(my $DATEI, "<$Datei"); seek($DATEI, 7, 0); read($DATEI, $Wort, 5); $position=tell($DATEI); close $DATEI; print $position;
Ausgabe: 12
Es wird die test.txt geöffnet, der Dateizeiger auf Position 7 gesetzt und dann 5 Zeichen eingelesen. Danach wird per tell() die Position abgefragt und schließlich ausgegeben.
Zu beachten ist in dem Zusammenhang, daß read den Zeiger um die anzahl von Zeichen erhöht, die gelesen werden.