2012-06-06T10:13:02 pq

ich würde noch die argumente für seek importieren:

Code (perl): (dl )

1
2
3

use Fcntl qw/ :flock :seek /;
...
seek DATEI, 0, SEEK_SET;

Quote

The values for WHENCE are 0 to set the
new position *in bytes* to POSITION, 1 to set it to the current
position plus POSITION, and 2 to set it to EOF plus POSITION
(typically negative). For WHENCE you may use the constants
"SEEK_SET", "SEEK_CUR", and "SEEK_END" (start of the file,
current position, end of the file) from the Fcntl module.
Returns 1 upon success, 0 otherwise.