Discussion :

[yodaragorn]

Bonjour,

j'ai un script qui contient un passage d'argument et qui fonctionnait sur mon pc précédent.

après recopie des données et nouveau link du bin du Perl.exe, ce script ne récupère plus les valeurs des arguments passés !

avant toute chose, j'ai testé d'autres scripts qui fonctionnent parfaitement (mais qui n'ont pas de passage d'argument).

En fait, même un bête script de 3 lignes ne récupère plus les arguments passés.

Auriez-vous une piste, svp, car là je sèche ?

Voici un extrait de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
 
#!C:\Users\A454222\Documents\_Apps\Perl64\bin\ -s
 
use strict;
use warnings;
 
our($TestArg) ;
 
print ("TestArg = { $TestArg }") ;

et le retour :

C:\Users\A454222\Documents\__Dev Perl\__TestScript>TestScirpt.pl -TestArg=3
Use of uninitialized value $TestArg in concatenation (.) or string at C:\Users\A454222\Documents\__Dev Perl\__TestScript\TestScirpt.pl line 11.
TestArg = { }

[hurukan]

Salutations...

Je n'ai pas l'impression dans ce que tu montres que tu récupères les paramètres...

Code :

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

my $parametres=@ARGV;

Pour récupérer le nombre de paramètres...

Code :

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

1
2
3
4
for($cpt=0;$cpt<$parametres;$cpt++)
{
  print "Param: ".$ARGV[$cpt]."\n";
}

...pour les afficher.

[yodaragorn]

Bonjour Hurukan,

merci de ta réponse.

normalement, la ligne

Code :

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

our $TestArg

doit récupérer l'argument passé en -TestArg, non ?

lorsque l'on utilise

Code :

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

use strict

avec le "-s", il faut prohiber l'utilisation de "my" et préférer "our" ... d'après ce que j'avais lu à l'époque.

[CosmoKnacki]

Normalement ça devrait marcher, est ce que tu es sûr de tester/éditer le bon script:

... __TestScript\TestScirpt.pl ...

[CosmoKnacki]

Code :

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

#!C:\Users\A454222\Documents\_Apps\Perl64\bin\ -s

Ou alors c'est le fait qu'il n'y ait pas le nom de l'exécutable (perl.exe) dans le path de ton shebang qui fait que ton option -s tombe dans le néant (j'imagine que sous Windows, l'extension .pl doit suffir à associer ton script à l'exécutable perl, ce qui fait qu'il s'exécute malgré tout.).

[yodaragorn]

Oui, j'avais vu l'inversion des lettres mais ce n'est pas ça le problème.

Et concernant la ligne shebang, je n'ai jamais mis le Perl.exe et mon script fonctionnait sur mon autre PC.

Par acquis de conscience, j'ai modifié en mettant bien TestScript et en ajoutant Perl.exe mais cela ne change rien au résultat.

[CosmoKnacki]

Et à tout hasard, est-ce que tu as essayé d'afficher le contenu de @ARGV au début du script pour voir s'il contient quelque chose: print(join("\r\n", @ARGV));

[yodaragorn]

je viens de le rajouter et quel que soit le nombre d'argument que je mets au script, il me retourne vide ou 0 !

[dmganges]

Bonjour,
C'est déjà vieux, donc juste pour confirmer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!C:\Strawberry\perl\bin\ -s
use strict;
use warnings;
 
=pod
my $parametres=@ARGV;
print(join("\r\n", @ARGV));
=cut
 
our($TestArg) ;
print ("TestArg = { $TestArg }") ;

Ça fonctionne avec le bon shebang :

F:\>
F:\>
F:\>perl ESS.PL -TestArg=TOTO
TestArg = { TOTO }
F:\>

Sans shebang, j'ai la même erreur que toi :

F:\>
F:\>perl ESS.PL -TestArg=TOTO
Use of uninitialized value $TestArg in concatenation (.) or string at ESS.PL line 10.
TestArg = { }
F:\>

Un espace de trop retourne une chaîne vide :

F:\>
F:\>perl ESS.PL -TestArg= TOTO
TestArg = { }
F:\>

L'absence du signe = OU l'absence de paramètre retourne 1 :

F:\>
F:\>perl ESS.PL -TestArg TOTO
TestArg = { 1 }
F:\>

F:\>
F:\>perl ESS.PL -TestArg
TestArg = { 1 }
F:\>

Comme CosmoKnacki, je pense que ton shebang n'est pas valide, ou que tu passes mal l'argument...