Use of uninitialized value

Version imprimable

Bonjour,

j'ai un script abc.pl (voir ci-dessous) dans lequel je place en parametre :

abc.pl -r lefichier
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 use Net::FTP; use File::Basename; use MIME::Lite; use Cwd; use POSIX 'strftime'; use Sys::Hostname; use strict; use warnings; use utf8; use Carp; my @Tableau; my @TableFichier=""; my $ParamGlobal; my $toto; ############################ # Menu d'affichage - Passage des paramétres ############################ @Tableau = (@ARGV); #$toto=$Tableau[0] ; #print "t>> $toto" ; if ( $Tableau[0] eq "-r" ) { $toto=$Tableau[1] ; } print "$toto\n" ; exit ;
J'ai le message d'erreur en sortie :

Use of uninitialized value $Tableau[0] in string eq at C:\PROC\abc.pl line 43.
Use of uninitialized value $toto in concatenation (.) or string at C:\PROC\abc.pl line 46

Si je mets ce meme script sur une autre machine, je n'ai pas le souci !! auriez vous une idée ?

03/05/2011, 12h26
djibril

Pour la récupération des arguments en ligne de commande, regarde ici.

j'ai recopié cela dans un fichier toto.pl, et quand je le lance, rien ne s'affiche, pas de message d'erreur . j'ai bien récupéré Getopt::Long; sur le cpan

toto.pl -name djibril -fichier "C:\repertoire\fichier.txt" -numero 2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
 
#script.pl -name djibril -fichier "C:\repertoire\fichier.txt" -fichier "D:\repertoire\fichier2.txt" -numero 2 -v
 
 
 
 
my ( $nom, @fichiers, $numero, $verbeux) = ();
GetOptions( 
  'nom|name=s' => \$nom,      # name ou nom
  'fichier=s'  => \@fichiers, # On peut avoir plusieurs fichiers
  'numero=i'   => \$numero,   # i pour integer => on récupère un entier
  'verbeux|v'  => \$verbeux,  # flag de type -v ou -verbeux ou --v ou --verbeux
);
 
if ( defined $nom ) {
  print "nom : $nom\n";
}
if ( defined $numero ) {
  print "numero : $numero\n";
}
if ( @fichiers ) {
  print "fichiers : @fichiers\n";
}
if ( $verbeux ) {
  print "mode verbeux\n";
}

03/05/2011, 15h08
djibril

Pour l'affichage du code sur le forum, c'est [code] et non [quote]

Ton code fonctionne chez moi. Qu'elle est ta version de Perl ?

Citation:

nom : djibril
numero : 2
fichiers : C:\repertoire\fichier.txt D:\repertoire\fichier2.txt
mode verbeux
03/05/2011, 15h57
vince2005

La seule différence que j'ai avec mon autre serveur et que l'un est en 32 bits et l'autre en 64 bits.

Sur le serveur en 64 bits, çà ne fonctionne pas !!! sur celui en 32, les 2 scripts fonctionnent. J'ai quand meme télécharger ActivePerl-5.12.3.1204-MSWin32-x64-294330.msi et j'ai le même probléme.

Ce code sur ton serveur 64bits fonctionne ?
Code:

1 2 3 4 5 6 #!/usr/bin/perl use strict; use warnings; use Getopt::Long; print 'hello';

03/05/2011, 16h12
vince2005

oui il fonctionne !!!

on dirait qu'à partir où je mets

Citation:

toto.pl -name toto -fichier
]

il ne reconnait pas les variables aprés toto.pl.
03/05/2011, 16h18
djibril

avec le code ci-dessus, si tu l'appelles ainsi

Citation:

toto.pl -name toto -fichier

tu as hello qui s'affiche ?
03/05/2011, 16h33
vince2005

oui j'ai le hello qui s'affiche. Et je n'ai aucun message d'erreur.

Mais j'ai repris ton script brut, sans insérer le name, fichier,-v.....

Maintenant teste ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
 
print 'hello'; 
 
my ( $nom, @fichiers, $numero, $verbeux) = ();
GetOptions( 
  'nom|name=s' => \$nom,      # name ou nom
  'fichier=s'  => \@fichiers, # On peut avoir plusieurs fichiers
  'numero=i'   => \$numero,   # i pour integer => on récupère un entier
  'verbeux|v'  => \$verbeux,  # flag de type -v ou -verbeux ou --v ou --verbeux
);
 
if ( defined $nom ) {
  print "nom : $nom\n";
}
if ( defined $numero ) {
  print "numero : $numero\n";
}
if ( @fichiers ) {
  print "fichiers : @fichiers\n";
}
if ( $verbeux ) {
  print "mode verbeux\n";
}
 
print 'vince';

03/05/2011, 16h51
vince2005

suite à au passage de commande :

toto1.pl -name djibril -fichier "C:\repertoire\fichier.txt" -fichier "D:\repertoire\fichier2.txt" -numero 2

voir le résultat :

Citation:

hellovince

il n' pas pris en compte "name djibril -fichier "C:\repertoire\fichier.txt" -fichier "D:\repertoire\fichier2.txt" -numero 2
"
03/05/2011, 16h57
djibril

Peux-tu me donner le résultat de cette commande sous ton DOS :

Code:

corelist Getopt::Long
03/05/2011, 19h00
vince2005

voici le résultat :

Getopt::Long was first released with perl 5
04/05/2011, 14h32
vince2005

Citation:

Getopt::Long was first released with perl 5

help ?

essaye ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use Data::Dumper;
 
print 'hello'; 
 
my ( $nom, @fichiers, $numero, $verbeux) = ();
my $resultat = GetOptions( 
  'nom|name=s' => \$nom,      # name ou nom
  'fichier=s'  => \@fichiers, # On peut avoir plusieurs fichiers
  'numero=i'   => \$numero,   # i pour integer => on récupère un entier
  'verbeux|v'  => \$verbeux,  # flag de type -v ou -verbeux ou --v ou --verbeux
);
 
print Dumper $resultat;
 
if ( defined $nom ) {
  print "nom : $nom\n";
}
if ( defined $numero ) {
  print "numero : $numero\n";
}
if ( @fichiers ) {
  print "fichiers : @fichiers\n";
}
if ( $verbeux ) {
  print "mode verbeux\n";
}
 
print 'vince';

04/05/2011, 15h43
vince2005
voici le résulat ::
Code:

1 2 3 hello$VAR1 = 1; vince
05/05/2011, 11h40
HRS

c'est un warning

en enlevant

use warning;

plus de message
05/05/2011, 11h53
djibril

Citation:

Envoyé par HRS

c'est un warning

en enlevant

use warning;

plus de message

??
05/05/2011, 14h42
vince2005

je n'ai toujours pas la solution !!!!

c'est vraiment bizard !! si vous avez des idées , je suis preneur !!