PHP - Perl Ã?bersetzer gesucht :)

Bash, Shell, PHP, Python, Perl, CGI
jojo1978
Posts: 4
Joined: 2003-07-07 21:33

PHP - Perl Ã?bersetzer gesucht :)

Post by 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
Posts: 401
Joined: 2002-12-19 02:06
Location: Siegburg

Re: PHP - Perl Ã?bersetzer gesucht :)

Post by 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
Posts: 4
Joined: 2003-07-07 21:33

Re: PHP - Perl Ã?bersetzer gesucht :)

Post by jojo1978 »

:-D Danke, das klappt !