Discussion :

[Vladkergan]

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];

[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 ...

[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

[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.

[elvivo]

Met le code ou a lieu l'erreur !!!!

[Jedai]

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ï

[Vladkergan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'espère être ainsi plus clair

[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 )