Discussion :

[doudou87]

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.

[djibril]

Montre nous ton bout de script

[doudou87]

voila le code que j qi ecris:

Code :

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

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;

[djibril]

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

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

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
#!/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;

[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.

[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?