De sh vers perl ?

[tabouet]

Bonjour,

J'ai besoin d'utiliser un script CGI sur mon site, ne connaissant rien aux CGI, je vais prendre modèle sur une script fourni sur dans un tuto de l'éditeur:

Code :

1
2
3
4
#!/bin/sh
DIR=/machinchose/gw
cd $DIR
$DIR/gwd -cgi 2>/dev/null

Cependant, sur mon serveur, je peux utiliser uniquement du perl.
Je suis donc à la recherche de quelqu'un qui pourrais me "traduire" le script ci-dessus vers du perl.

bien sûr, "machinchose" correspond à un chemin que j'ai masqué par mesure de sécurité.

Merci et à bientôt,
Alexis

[Gardyen]

à priori c'est tout bête

Code :

1
2
3
4
#!/usr/bin/perl
my $dir = "/machinchose/gw";
chdir($dir);
system("$dir/gwd -cgi 2>/dev/null");

mais je peux me tromper