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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :
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