Ich gehe nun von folgenden Voraussetzungen aus:
Es immer ein Zeichen+"\n" pro Zeile. Der Zeilenumbuch ist "\x0A" oder "\x0D\x0A" Das Zeichen sind reines ASCII und damit immer 1Byte lang. Du weißt in welcher Zeile sich das Zeichen befindet das du suchst.
Das als Voraussetzung.
Es gibt die Funktion
seek die erlaubt es in einer geöffneten Datei zu "springen". Es wird der Pointer im Filehandle damit gesetzt. Aber das geht nur Byte weise. Mann kann nicht sagen "geh zu Zeile" da es für das Filehandle keine Zeile gibt. Das Macht Perl auf einer anderen Ebene.
Also
seek kann nur die Byteposition in der Datei setzen.
Um es nutzen zu können muss du die Zeile, in die Byteposition umrechnen. Darum habe ich auch diese Annahmen am Anfang gemacht.
Wenn meine Annahme stimmt besteht eine Zeile immer aus zwei, oder wenn das Zeilenende "\r\n" ("\x0D\x0A") ist, aus drei Byte.
Der Code könnte so aussehen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
my $position=100;
my $file='test.dat';
my $bytepos=($position-1)*2;
open(my $fh, '<', $file) or die("ERROR open $file ($!)\n");
seek($fh,$bytepos,0);
chomp(my $data=<$fh>);
close($fh);
print "$data\n";
Noch schneller geht es mit
read Da ist die verwenung aber ungewohnt, da es eine direkt Umsetzung einer Systemfunktion ist.
Bei
read kann man auch einen Offset mit angeben. Dass ist dann wie ein eingebautes
seek. Aber das geht immer von der Aktuellen Position des Pointers in der Datei aus. In deinem Fall kannst du dir das
seek dadurch sparen und
read direkt nutzen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
my $position=100;
my $file='test.dat';
my $bytepos=($position-1)*2;
open(my $fh, '<', $file) or die("ERROR open $file ($!)\n");
my $data='';
read($fh,$data,1,$bytepos);
close($fh);
print "$data\n";
Also schneller kommst du nicht an deinen Wert. Das funktioniert aber nur wenn jede Zeile die gleich Anzahl von Zeichen (Byte) hat!
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[gelöst]](/battie/theme/default/icons/tick.png "gelöst"){kind=icon}
+20 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
Wie frage ich & perlintro 
Tie::File.
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
