Hi Struppi
Das auch in der Doku beschrieben wird.
Du suchst seek und/oder truncate
Genau - das suchte ich :-)
-----------------------------------------------
if($Abus eq "free"){
seek(FIRSTCONTROL, 0, 0);
print FIRSTCONTROL "busy";
close (FIRSTCONTROL);
}
-----------------------------------------------
Danke und Grüsse
Gary