fonction get de NET::FTP

Version imprimable

13/01/2009, 09h33
doudou87

fonction get de NET::FTP

bonjour,
je suis entrain de faire un client ftp graphique avec perl en utilisant la classe NET::FTP,je veux essayer fonction get sur un serveur ftp G6ftp Server.Mais je sais pas comment créer des fichiers sur ce serveur et comment je peux y connecté à partir de mon script perl.Malgré que j'ai trouvé des exemples qui se connecte sur un site ftp.Mais dans le cas de serveur local,je dois me connecter avec l'adresse IP de domaine ou chose comme ça,stp j'ai besoin d'aide.
13/01/2009, 11h12
djibril

Montre nous ton bout de script

voila le code que j qi ecris:

Code:

1
2
3
4
5
6
7
8
9
#!/usr/local/bin/perl
use Net::FTP;
my $serveur = '127.0.0.1';
my $source = 'Main log';
my $ftp = Net::FTP->new($serveur);
$ftp->cwd("/Logs&rapports");
$ftp->get("$source");
$ftp->quit;
exit 0;

Merci de penser aux balises codes (Voir liens dans ma signature).

Pourquoi tu ne te bases pas sur la documentation Net::FTP

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use warnings;
use strict;
use Net::FTP;
 
my    $ftp = Net::FTP->new("some.host.name", Debug => 0)
      or die "Cannot connect to some.host.name: $@";
 
    $ftp->login("anonymous",'-anonymous@')
      or die "Cannot login ", $ftp->message;
 
    $ftp->cwd("/pub")
      or die "Cannot change working directory ", $ftp->message;
 
    $ftp->get("that.file")
      or die "get failed ", $ftp->message;
 
    $ftp->quit;

14/01/2009, 17h26
doudou87

j'ai lu la documentation de NET::FTP,mais je veux savoir si la portion du code est juste ou non le faite d'écrire:
my $ftp = Net::FTP->new('127.0.0.1');
je veux dire de se connecter par adresse IP au serveur ftp de cette façon.
17/03/2009, 15h44
christophe7502

Bonjour,

Net::FTP à l'air pas mal, mais est ce que c'est possible de l'utiliser depuis un serveur sous linux pour aller chercher un fichier (plus précisement une archive) sur un pc qui tourne sous windows?
17/03/2009, 17h20
djibril

bah oui, du moment où il y a un serveur ftp sur ce PC.
Si tu es capable, depuis ta console linux, de te connecter en ftp sur ton PC, alors avec Net::FTP, tu le pourras.

As toi de tester!

Ok, j'ai testé mais j'ai un problème, la connexion est refusée.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 #!/usr/bin/perl use strict; use warnings; use Net::FTP; my $ftp = Net::FTP->new("192.168.0.50") or die "Cannot connect to '192.168.0.50': $@"; $ftp->login("login","mdp") or die "Cannot login ", $ftp->message; $ftp->cwd("chemin/linux") or die "Cannot change working directory ", $ftp->message; $ftp->get("chemin/windows/archive.tar.gz") or die "get failed ", $ftp->message; $ftp->quit;
Et j'ai ce message d'erreur :

Cannot connect to '192.168.0.50': Net::FTP: connect: Connection refused at ftp.pl line 6.

D'où ça peut venir ?

Merci d'avance.

18/03/2009, 11h28
christophe7502

C'est bon en fait ça marche.
Dsl pour le dérangement
18/03/2009, 12h07
djibril

Pensez à mettre votre message en résolu.

Merci