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