Problème avec un bout de code en PERL

[UsagiYojimbo]

Je commence le PERL aujourd'hui (en même temps qu'un nouveau job).

Je bute sur le bout de code suivant.

Code: Tout sélectionner

perl /var/www/html/machin/perl/truc.pl /var/www/html/machin/wwwroot/chose/fichier.txt /var/www/html/dossier/CHARTS/chose/trait1.php
/var/www/html/dossier/CHARTS/chose/trait2.php
/var/www/html/dossier/CHARTS/chose/trait3.php
/var/www/html/dossier/CHARTS/chose/trait4.php
/var/www/html/dossier/CHARTS/chose/trait5.php file_in file_out


Sachant que dans le fichier truc.pl je fais ca :

Code: Tout sélectionner

$var1 = $ARGV[0];
$var2 = $ARGV[1];
$var3 = $ARGV[2];
$var4 = $ARGV[3];
$var5 = $ARGV[4];
$var6 = $ARGV[5];
$var7 = $ARGV[6];


Ca me renvoie en fait l'erreur suivante :

Code: Tout sélectionner

Bareword found where operator expected at line X (où X est la ligne ci-dessus) near "/var/www"

Quelqu'un voit où je fait des merdouilles ?

[Serious]

ton code n'est pas du perl...

[UsagiYojimbo]

... euh c'est à dire ?

[UsagiYojimbo]

... bon correction du truc : la première partie de mon code est une ligne de commande shell :

Code: Tout sélectionner

perl /var/www/html/machin/perl/truc.pl /var/www/html/machin/wwwroot/chose/fichier.txt /var/www/html/dossier/CHARTS/chose/trait1.php
/var/www/html/dossier/CHARTS/chose/trait2.php
/var/www/html/dossier/CHARTS/chose/trait3.php
/var/www/html/dossier/CHARTS/chose/trait4.php
/var/www/html/dossier/CHARTS/chose/trait5.php file_in file_out


et le fichier truc.pl, qui lui est écrit en perl, contient le code suivant :

Code: Tout sélectionner

$var1 = $ARGV[0];
$var2 = $ARGV[1];
$var3 = $ARGV[2];
$var4 = $ARGV[3];
$var5 = $ARGV[4];
$var6 = $ARGV[5];
$var7 = $ARGV[6];


# Ouverture des fichiers d'entree et de sortie
print("\nOuverture des fichiers...\n");
open(FH, $var1)          || die ("Erreur d'ouverture !");
open(FoutMoteurs, ">".$var2)    || die ("Erreur d'ouverture (".$OUT_moteurs.") !");
open(FoutOrigine, ">".$var3)    || die ("Erreur d'ouverture (".$OUT_origine.") !");
open(FoutMois, ">".$var4)       || die ("Erreur d'ouverture (".$OUT_mois.") !");
open(Fout6Mois, ">".$var5)    || die ("Erreur d'ouverture (".$OUT_6mois.") !");



Le lancement de cette commande perl me renvoie donc le message d'erreur suivant :

Bareword found where operator expected at line X near "/var/www"

Je suis plus clair ainsi ?

[Serious]

Pas beaucoup plus clair...
Le seul probleme que je vois est que ta commande shell est sur plusieurs lignes et non une seule. Mais l'erreur est une erreur perl. En tout cas, ca marche chez moi.
Je ne comprends ni le X ni le /var/www dans le message d'erreur. Mais bon, je n'utilise quasi jamais perl.