New subject: Perl Probleme mit seek und tell

18 Mar 2005

      Arno Lehmann wrote:
...
Kyek, Andreas, VF-DE wrote:
...
Hallo,
Eine (hoffentlich) kleine Frage an die Perl-Experten hier:
Bin zwar kein Experte, aber...
...
folgendes kleines Stück perl-code:
--- cut here ---
#!/usr/bin/perl
$pos=123456;
open IN, "
Ergebnis:
--- cut here ---
seek-Result=1
Aktpos=123456
seek-Result END=1
Aktpos=16308
-- cut here ---
Was geht hier vor? nach meiner Doku soll seek bei nicht
gelingen ein RC=0 zurückgeben. Das File ist genau 16308 
Bytes lang; ein seek auf Position 123456 dürfte doch gar
nicht gehen, oder?
Doch.
Schreib' dann mal in Datei und schau' Dir nachher die Datei an.
Habe ich gemacht und mit folgendem code in eine 907 Byte grosse
Datei geschrieben:

#!/usr/bin/perl
open OUT, ">>./xx.asc" or die;
seek OUT, 2048, 0;
$pos=tell OUT;
print OUT "Auf pos. 2048\n";
$npos=tell OUT;
close OUT;
print "pos=$pos, npos=$npos\n";

Ergebnis:
pos=2048, npos=921

Und das Ergebnisfile ist auch nur 921 Bytes gross!

Ergebnis: Der tell nach dem seek lügt!
...
...
Wie kann man prüfen, ob ein seek funktioniert hat? Der RC 
scheint immer 1 zu sein und die Position mittels tell zu
prüfen funktioniert auch nicht (wie man sieht).
Doch, funktioniert eigentlich wie geplant.
Um das Ende einer Datei zu suchen gibt es ja die Möglichkeit 
von hinten zu suchen.
Weiss ich, ich brauche ja eigentlich auch was anderes:

Ich überwache alle 10 Minuten n-Files, die sehr gross 
werden können. Um nun nicht jedesmal durch das ganze 
File laufen zu müssen, merke ich mir die letzten Lese-
positionen.
Leider wird "gegen Mitternacht" das File ins Archiv verschoben
und ein neues File mit _gleichem_ Namen aufgemacht.
Die erste Idee war daher, den seek auf die alte letzte
Position zu versuchen und (im Fehlerfall, das das File ja nun
kleiner ist) von einem neuen File auszugehen und von vorne zu
lesen.
Das funktionierte aber nicht (s.o.)

(mittlerweile mache ich ein "seek, 0,2" und ein "tell IN" und 
vergleiche das ermittelte Fileende mit der letzten bekannte
Position.
Aber der Grund für dieses seek Verhalten ist mir trotzdem unklar)

Andreas

Re: Perl Probleme mit seek und tell

Kyek, Andreas, VF-DE

Arno Lehmann

Torsten Foertsch

Christian Boltz

tags

participants (4)