Oversættelse af PHP til Perl (cgi)
Hej eksperterSom en nogenlunde erfaren phpgut, er jeg nu stødt ind i et problem jeg ikke kan løse.
Problemet er blot et lille cgi script, der skal logge noget input til en fil. Altså, et meget enkelt script! :-)
Jeg skrev det i php for at klarlægge hvad det skulle gøre, men da jeg begyndte at kigge på perl for at "oversætte" det, blev jeg bare helt blank. og det er jeg stadig.
Håber der er erfarne perl/php gutter nogen herinde der kan hjælpe.
Koden der skal "oversættes" er som følger:
<?php
$file = 'log.txt';
if (isset($_POST) && isset($_POST['input'])) {
$line = date('H:i:s d-m-Y');
$line .= ' ['. $_SERVER['REMOTE_ADDR'] .']';
$line .= ' ['. sprintf('%02d', $_POST['input']) .']';
error_log($line ."\n", 3, $file);
}
?>
