Discussion :

[Hideki-kun]

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.

[Jedai]

Premier point : Les slashs ne sont pas à échapper dans une chaîne de caractère, et surtout pas par d'autres slashs !
Autrement dit :

Code :

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

"ftp:////j3suscri3.hd.free.fr//Archive"

Devrait être écrit simplement :

Code :

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

"ftp://j3suscri3.hd.free.fr/Archive"

Deuxième point : malheureusement, -e ou mkdir() ne marchent pas à travers le réseau. Il faut utiliser les méthodes de l'objet Net::FTP pour faire l'équivalent :

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
#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 (grep m/^Archive$/ $Ftp->ls ) {
	print "Il est manquant";
	$Ftp->mkdir("Archive");
	}
	$Ftp->cwd ("Archive");

--
Jedaï

[Hideki-kun]

Merci bien Jedai, je vais m'empresser d'essayer cela