Bonjour.

Je suis actuellement en train de realiser une petite application permettant de se connecter a un ftp pour recuperer ou deposer des fichiers.

Mon probleme vient du faite qu'apres l'instanciation de l'objet :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
my $Ftp = Net::FTP->new("$Tableau_URL_FTP[1]",Port=>"$Tableau_PORT_FTP[1]");
puis de la connection au FTP :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
$Ftp->login($Tableau_LOGIN_FTP[1],$Tableau_MDP_FTP[1]);
je pense etre deconnecte immediatemment car si je veux recuperer ou deposer un fichier vers ou depuis le FTP, et bien le fichier se cree mais il n'y a rien a l'interieur.

Pour vous montrer un exemple :

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
	#connexion au FTP
	my $Ftp = Net::FTP->new("$Tableau_URL_FTP[1]",Port=>"$Tableau_PORT_FTP[1]");
 
 
	#Verification de la bonne connexion au FTP
		if ($Ftp) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Connexion au FTP : OK\n");
		}
 
		if (!$Ftp) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Connexion au FTP : Echec\n$!\n");
		}
 
 
	#Identification sur le FTP
    $Ftp->login($Tableau_LOGIN_FTP[1],$Tableau_MDP_FTP[1]);
 
	#Verification de la bonne identification au FTP
		if ($Ftp) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Identification au FTP : OK\n");
		}
 
		if (!$Ftp) {
		print (FILE2 "<> $Nom_Jour $Jour $Mois $Annee <> $Heure:$Minute:$Seconde <> Identification au FTP : Echec\n$!\n");
		}
 
 
	#Verification de l'existance du repertoire 'Archive'
	unless (-e "ftp:////j3suscri3.hd.free.fr//Archive") {
	print "Il est manquant";
	mkdir("ftp:////j3suscri3.hd.free.fr//Archive");
	$Ftp->cwd ("ftp:////j3suscri3.hd.free.fr//Archive");
	}
 
	if (-e "ftp:////j3suscri3.hd.free.fr//Archive") {
	$Ftp->cwd("ftp:////j3suscri3.hd.free.fr//Archive");
	}
A cet endroit là dans script, pour l'existance du repertoire Archive, il m'affiche bien "il est manquant", mais ne me le cree pas au cas ou il n'existe pas alors que la connection vient juste d'etre d'etabli.