{filelink=13116}

#!/usr/bin/perl -w

use Net::FTP;

$username = "test_username";                # Nom d'utilisateur
$password = "test_mot_de_passe";            # Mot de passe
$remotefile = "index.html";                 # Fichier à téléchargé
$localfile = "index2.html";                 #Fichier à envoyé
$directory = "httdoc";                      # Le répertoire

$ftp = Net::FTP->new("ftp.monhost.com")    or die "Connexion impossible: $@n";
#Identification du client
$ftp->login($username, $password)          or die "Nom d'utilisateur/mot de passe incorrectn";
# Changer le répertoir
$ftp->cwd($directory)                      or die "Impossible de sélectionner ce répertoiren";
# télécharger le fichier distant
$ftp->get($remotefile)                    or die "Impossible de télécharger le fichier: $remotefilen";
# envoyer un fichier au serveur
$ftp->put($localfile)                       or die "Impossible d'envoyer ce fichier: $localfilen";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]