Net::FTP , Problème avec la fonction list

Salut, j'essaye d'afficher le contenu d'un dossier mais ca ne fonctionne pas

voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10

print "Tentative de connexion sur le serveur ${serveur_ftp_utilisateur}"; my $ftp=Net::FTP->new($serveur_ftp_utilisateur) or die "Impossible de se connecter au serveur .. Verifier vos informations,pare-feu .\n"; $ftp->login($login_ftp_utilisateur,$motdepasse_ftp_utilisateur) or die "Identifiant ou mot de passe incorrecte "; $ftp->cwd("/") or die "Ce répertoire n'existe pas ."; $ftp->list() or die "marche pas";

---

Code:

---

1 2 3 4

#Execution du script >> Tentative de connexion sur le serveur .. [jeremy@ArchLinux Perl]$

---

ca m'affiche rien , pas d'erreur et le script se fini.. quelqu'un a la solution svp :(

Salut,

tu peux activer le debug pour voir les échanges entre ton client et ton serveur ftp:

Citation:

---

my $ftp=Net::FTP->new("server",Debug => 1)

---

Code:

---

1 2	print $ftp->list()."\n"

---

Pour afficher l'output de ton list.

Si tu veux afficher les répertoires et fichiers, utilise la fonction ls ou dir + print pour afficher le résultat.

Code:

---

1 2 3 4 5 6 7 8

@filelist = $ftp->dir() or die "marche pas";   foreach $file(@filelist){ print $file."\n"; }   $ftp->quit();

---

Citation:

---

Envoyé par Jeremy0201

Code:

---

1 2 3 4

#Execution du script >> Tentative de connexion sur le serveur .. [jeremy@ArchLinux Perl]$

---

---

Pour moi, je vois que tu affiches des messages d'erreurs mais rien quand tout se déroule bien. Ton code se déroule bien ^^

Code:

---

1 2 3 4 5 6 7 8

@filelist = $ftp->dir() or die "marche pas";   foreach $file(@filelist){ print $file."\n"; }   $ftp->quit();

---

[/QUOTE]

Merci ca marche , d'ailleurs c'est bizarre car je n'ai pas déclaré de variable $file ..

Salut,

la variable $file est déclarée et initialisée directement au niveau du foreach avec les valeurs du tableau à chaque itération.