Discussion :

[jp_sympa]

Bonjour,

je debute tout juste PERL et deja j'ai des difficultes a assimiler un devoir que j'ai a faire.
Creer 2 scripts, un serveur et client ftp en se servant des modules IO::Socket::INET.

Si quelqu'un pouvait me mettre sur une voie pour commencer svp?

Merci.

[GLDavid]

Salut et bienvenue à toi

Tu es vraiment obligé d'utiliser ce module ? Je dis ça parce qu'il existe un modue Net::FTP qui répond à toutes tes questions.

@++

[jp_sympa]

Oui malheuresement on a pas le choix, toutes mes recherches sur le net me redirigent aussi vers ce module Net::FTP...

[Celelibi]

À mon avis on a envie de te faire travailler avec le protocole FTP. Le "problème" avec FTP c'est qu'il utilise 2 connexions client/server une pour transmettre les commandes et l'autre pour transmettre les fichiers.
Pour tout savoir sur le protocole FTP je te conseil de lire la RFC que tu peux trouver ici ftp://ftp.rfc-editor.org/in-notes/std/std9.txt.

Sur ce, je sent que tu vas bien t'ammuser.

[Nickname]

j'ai essayé de faire un ti script pour test ce module mais je n'arrive pas a le faire fonctionner je vois pas trop ou est le probleme :

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
#!/usr/bin/perl -w
use Net::FTP;
use Switch;
$login=$ARGV[0];
$pass=$ARGV[1];
$ftp = Net::FTP -> new (
 "ip_du_serv",
  Timeout => 15
) or die "Connexion impossible $!\n";
$ftp-> login("$login","$pass") or die "tu peux pas te logger $!\n";
print ("Que voulez vous faire ?\n");
print("1. test\n");
print("2. ls\n");
$choix=<STDIN>;
chomp ($choix);
switch ($choix) {
case 1	{ print "blabla" }
case 2 { $ftp->dir("/e:/Ftp Serveur/Home/")
      or die "t pas un peu bourre toi? $!\n ", $ftp->message;
$ftp->dir("/e:/Ftp Serveur/Home/") or die "\ncomme un jedi $!\n", $ftp->message;
 
 }
}

Enfait lorque je tappe 2, il me saute une ligne et ne fais rien.J'ai l'impression que je ne suis pas dans le socket et donc qu'il ne peux effectuer la cmd.Merci pour votre aide 8)

[Jedai]

Comme on l'a déjà souligné dans ce forum, le switch case n'est pas particulièrement recommandé en Perl... Par ailleurs, il est assez normal que ça ne t'imprime rien puisque tu ne lui fais rien imprimer, un petit

Code :

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

1
2
 
print  $ftp->dir("/e:/Ftp Serveur/Home/");

devrait arranger bien des choses.

PS: Et qu'est-ce que tu as contre les Jedi !!
--
Jedaï

[Nickname]

yop Jedai
Mdr meuh non j'ai rien contre les jedai je sais meme pas pkoi j'ai mis ca d'ailleur lol.
Donc il est vrai que j'avais pas fais imprimer le résultat mais malheureusement le script ne marche toujours pas.Enfait il me met toujours rien lorsque je fais mon choix "2".J'ai enlever les structures dir y en avais une en trop pi je lui ai mis un print mais ca change rien.
Mais merci Jedai

[Nickname]

personne pour me filer un ti coup de main ?
je comprend pas vraiment pourquoi le script ne marche pas, si quelqu'un a une idée, merci de m'en faire profiter

[GLDavid]

Bonjour !

En effet, la clause switch n'est pas bonne à utiliser sous Perl 5.8.x. Je te propose ce 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
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl -w
use Net::FTP;
 
$login=$ARGV[0];
$pass=$ARGV[1];
$ftp = Net::FTP -> new (
 "monftp.gldavid.net",
  Timeout => 15
) or die "Connexion impossible $!\n";
$ftp-> login("$login","$pass") or die "tu peux pas te logger $!\n";
print ("Que voulez vous faire ?\n");
print("1. test\n");
print("2. ls\n");
$choix=<STDIN>;
chomp ($choix);
if($choix == 1){
	print "blabla";
}
elsif ($choix == 2){
	 $ftp->cwd("truc") or die "t pas un peu bourre toi? $!\n", $ftp->message;
	 @ls = $ftp->ls;
	 foreach $file (@ls){
		print "$file\n";
	}
}

@++

[Nickname]

ohh c'est sympa GLDavid ca marche niquel !
Enfait donc le switch est a evité donc, c'est bon a savoir.
En tout cas qu'une chose a dire :

Le Perl Est Merveilleux

pi merci a tous

[GLDavid]

Je confirme, Perl est merveilleux.
En revanche, l'utilisation du Switch est à proscrire jusqu'à la prochaine version de Perl (Perl 6) ou là il sera implémenté correctement.

@++