open - Erledigt!

[Gary]

Abend Struppi

---

if($Abus eq "free"){
                   seek(FIRSTCONTROL, 0, 0);
                   print FIRSTCONTROL "busy";
                   close (FIRSTCONTROL);
                   }

Das funktioniert aber nur, weil beide Wörter zufällig gleich viele Buchstaben haben.

Hehe - Glück gehabt. Ich hab schon angefangen zu schwitzen, als ich was von Binärer Position gelesen habe. Ich habe gelesen, daß der 3. Parameter aussagt, von wo ab gezählt wird (= von Anfang an). Beim 2. parameter habe ich *geraten* und "Null" eingesetzt. Das war für mich aus der Doku nicht ersichtlich:

----------------------------------------------
seek(HANDLE,Positionswert,ABSOLUT-RELATIV-VOMENDE);

Der Befehl seek setzt den Dateizeiger eines Dateihandles, das vorher mit open erzeugt wurde, an eine neue, beliebige Stelle.
Dazu werden folgende Parameter verwendet:
1. Parameter: Das Handle der geöffneten Datei.
2. Parameter: Die Byteposition innerhalb der Datei, abhängig von der im dritten Parameter angegebenen Bezugsposition
3. Parameter: Bezugsposition für die Angabe im zweiten Parameter.
Diese kann die Werte 0, 1 oder 2 haben:

• 0 bedeutet absolut vom Dateianfang (Position 0) aus gerechnet,
• 1 bedeutet relativ vom der aktuellen Position des Dateizeigers aus gerechnet,
• 2 bedeutet absolut vom Dateiende gerechnet (im Normalfall sollte die Angabe beim zweiten Parameter in diesem Fall eine negative Zahl sein).
  ----------------------------------------------

Danke und Gruß

Gary