Problème de syntaxe ? : Bareword found where operator expected

Version imprimable

01/12/2006, 16h06
Vladkergan

Problème de syntaxe ? : Bareword found where operator expected

Je débute en Perl, en reprenant une appli déjà débuté par quelqu'un.

J'ai un fichier perl, lancé via un cron qui a cette forme :

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

Cette commande perl me renvoie l'erreur suivante : Bareword found where operator expected at line X (où X est la ligne ci-dessus) near "/var/www".

Quelqu'un sait d'où peut venir le problème ?

Schant que dans le fichier truc.pl je fais ca :
$var1 = $ARGV[0];
$var2 = $ARGV[1];
$var3 = $ARGV[2];
$var4 = $ARGV[3];
$var5 = $ARGV[4];
$var6 = $ARGV[5];
$var7 = $ARGV[6];
01/12/2006, 17h06
elvivo

Et si tu postais l'extrait de code autour de la ligne qui pose probleme juste pour voir ?
On devrait meme pas avoir a demander ...
01/12/2006, 17h10
Vladkergan

...

... bein a priori le problème est à l'appelant, c'est à dire au niveau des arguments que je passe à truc.pl (du moins le message d'erreur cible la ligne suivante :

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

Comme je le precisais dans mon message précédent
01/12/2006, 17h45
Vladkergan

...

... petite avancée : si je fais

$var1 = '/var/www/html/machin/wwwroot/chose/fichier.txt';
$var2 = '/var/www/html/dossier/CHARTS/chose/trait1.php';
$var3 = '/var/www/html/dossier/CHARTS/chose/trait2.php';
$var4 = '/var/www/html/dossier/CHARTS/chose/trait3.php';
$var5 = '/var/www/html/dossier/CHARTS/chose/trait4.php';
$var6 = '/var/www/html/dossier/CHARTS/chose/trait5.php';
$var7 = 'file_in';
$var8 = 'file_out';

Ca fonctionne.

Je me suis dit chouette, il va donc suffira que je mette mes arguments de scripts entre ''. Manque de pot ca plante toujours.
01/12/2006, 21h45
elvivo

Met le code ou a lieu l'erreur !!!!
02/12/2006, 14h28
Jedai

Citation:

Envoyé par Vladkergan

J'ai un fichier perl, lancé via un cron qui a cette forme :

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

Si j'ai bien compris, dans ton fichier Perl tu as la ligne ci-dessus ? Dans ce cas il ne s'agit pas de Perl mais de shell, donc il est peu étonnant que tu ais une erreur si tu essaies de le faire exécuter par Perl.
Si ce n'est pas ça, soit plus clair !

--
Jedaï

Alors...

J'ai un peu potassé la terminologie ce week end, donc je pense pouvoir être plus clair :

Je lance donc le script suivant en shell :

Code:

1
2
3
4
5
6
 
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

Le fichier perl truc.pl appelé via la commande perl contient ces lignes (pour le moment) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
$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.") !");

Et le lancement de ce fichier perl en commande shell me renvoie donc le message d'erreur suivant :

Code:

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

J'espère être ainsi plus clair

04/12/2006, 21h15
elvivo

Je pense que Jedai a raison.
Le code perl ne semble pas presenter d'erreur (bon ca gagnerai peut etre en securite de mettre un petit use strict et de fermer les handlers mais c'est un autre debat :D )