script perl pour ftp

salut,

J'ai fait un script perl pour acceder à un serveur ftp et y recuperer des fichiers;le script fonctionne.
Donc j'ai voulu creer un fichier de conf qui contient les parametre de connexion et la sa ne fonctionne plus .
voila mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl -w use strict; use Net::FTP;   ############################################################################# # PARAMETRES my $monfichier="confi"; require "C:/Documents and Settings/tom/Bureau/x/conf-$monfichier.cfg";     my $ftp = Net::FTP->new("$HOST"); $ftp->login("$USER","$PASSWD"); $ftp->cwd("C:/Documents and Settings/tom/Bureau/x"); $ftp->get("servi/y/fich.csv"); $ftp->quit;

---

et le fichier de conf contient cela

Code:

---

1 2 3

my $HOST="NOMDUSERVEUR"; my $USER="user"; my $PASSWD="passwd";

---

sans faire appel au fichier de conf sa fonctionne et quand on l'appel sa bogue :

Citation:

---

Global symbol "$HOST" requires explicit package name at C:\Documents and Setting
s\tom\Bureau\x\ftp.pl line 21.
Global symbol "$USER" requires explicit package name at C:\Documents and Setting
s\tom\Bureau\x\ftp.pl line 22.
Global symbol "$PASSWD" requires explicit package name at C:\Documents and Setti
ngs\tom\Bureau\x\ftp.pl line 22.
Execution of C:\Documents and Settings\tom\Bureau\x\ftp.pl aborted du
e to compilation errors.

---

Merci

je me suis sur une machine unix
donc j'ai essayer et sa ne fonctionne pas aussi
j'ai meme essayer de recuperer un parametre que je saisi quand j execute mon script

Citation:

---

./ftp.pl mon param

---

et dans mon script j'essai de l'affichier

Code:

---

1 2	my $monparam=$1; print "$monparam";

---

et ça ne fonctionne pas aussi
est ce qu'il faut rajouter un module ??

Citation:

---

Use of uninitialized value in string at ./ftp.pl line 19.

---

merci

Perso, je procéderais comme ceci (l'ai déjà fait et fonctionne à merveille) :

1) ton fichier .conf, sous cette forme :

Code:

---

1 2 3

HOST;NOMDUSERVEUR USER;user PASSWD;passwd

---

2) dans ton script, une petite fonction qui alimente un hash depuis ce qu'elle va lire dans ton fichier .conf :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sub LitConf { my ($hash) = shift();   open(CONF, "fichier.conf") or die("pb pour lire fichier.conf : $!\n"); while(<CONF>) { chomp(); $hash->{$1} = $2 if (/^(.+);(.+)$/; } close(CONF); return; }

---

Et dans ton script, tu n'as plus qu'à déclarer un hash exemple %Conf et pour faire appel à la fonction LitConf( ), il suffit de :

Code:

---

1 2 3 4 5 6

LitConf(\%Conf);   foreach(keys %Conf) { print "param pour $_ = $Conf{$_}\n"; }

---

c'est compliqué par rapport au shell
et c'est possible de passer un parametre à l'appel du script
./ftp.pl monhost...

Bien sûr, c'est possible ;)

Et comme tu vas demander "comment", ben voici :

Code:

---

1 2 3 4 5 6

# lancement du script avec arguments ./ftp.pl NOMDUSERVEUR user passwd   # et la récup des arguments dans le script ftp.pl my ($Nomserveur, $user, $password) = ($ARGV[0] .. $ARGV[2]);

---

c'est nikel pour les param
en faite arg[0] c'est comme $1

mais pour le fichier de configuration
on est obliger de passer par une fonction ?