Discussion :

[vince2005]

Bonjour,

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

abc.pl -r lefichier

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
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 ?

[djibril]

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

[vince2005]

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 :

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
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";
}

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

nom : djibril
numero : 2
fichiers : C:\repertoire\fichier.txt D:\repertoire\fichier2.txt
mode verbeux

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

[djibril]

Ce code sur ton serveur 64bits fonctionne ?

Code :

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

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

[vince2005]

oui il fonctionne !!!

on dirait qu'à partir où je mets

toto.pl -name toto -fichier
]

il ne reconnait pas les variables aprés toto.pl.

[djibril]

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

toto.pl -name toto -fichier

tu as hello qui s'affiche ?

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

[djibril]

Maintenant teste ça

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

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

hellovince

il n' pas pris en compte "name djibril -fichier "C:\repertoire\fichier.txt" -fichier "D:\repertoire\fichier2.txt" -numero 2
"

[djibril]

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

Code :

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

corelist Getopt::Long

[vince2005]

voici le résultat :

Getopt::Long was first released with perl 5

[vince2005]

Getopt::Long was first released with perl 5

help ?

[djibril]

essaye ça :

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

[vince2005]

voici le résulat ::

Code :

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

1
2
3
 
hello$VAR1 = 1;
vince

[HRS]

c'est un warning

en enlevant

use warning;

plus de message

[djibril]

c'est un warning

en enlevant

use warning;

plus de message

??

[vince2005]

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

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