PHP - Perl Ã?bersetzer gesucht :)

[jojo1978]

Hallo Forum-Leser,

wer kann mir dieses einfache PHP-Script in Perl übersetzen?

$fp = @fopen("sub/".$var1.".dat", "r+");
$id = fgets($fp, 64);
rewind($fp);
fwrite($fp, ++$id);
fclose($fp);

Datei öffnen
Wert auslesen
Wert um 1 erhöhen
Neuen Wert schreiben



Und das hier:
Datei öffnen,
Neue Zeile mit Text anhängen
Datei schließen.

Eine Sache von einer Minute, wenn mans kann..... :-D

Gruß Joachim

[olaf.dietsche]

Ich kann zwar kaum PHP, aber das hier sollte ungefähr gehen:

Code: Select all

local *F;
open(F, '+<', "sub/$var1.dat") or die "Cannot open sub/$var1.dat: $!";
my $id = <F>;
seek(F, 0, 0);
++$id;
print F $id;
close(F);

Allerdings weiß ich nicht, wie man die Beschränkung auf 64 Zeichen hin bekommt.

Und das zweite

Code: Select all

open(F, '>>', "Datei.out") or die "Cannot open Datei.out: $!";
print F "Neue Zeile mit Textn";
close(F);

[jojo1978]

:-D Danke, das klappt !