Posts Tagged ‘html’

Exemple d’utilisation d’une connexion FTP

 fichier,serveur,ftp, html
{filelink=13114}

#!/usr/bin/perl
 
use warnings;
use strict;
use Net::FTP;
 
my $ftp = Net::FTP->new("ftp.monserveurFTP.com", Timeout => 60)
		or die "Connexion impossible: $@";       # En cas d'erreur, prévenir
$ftp->login("username","password");          # Identification
 
$ftp->cwd("/httdoc/site");                   # Dossier courany
$ftp->get("index.html");                    # télécharger le fichier index.html
$ftp->close;

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]

Envoyer et récevoir des fichiers d’un serveur FTP

 fichier,serveur,ftp, html
{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]

Télécharger un fichier à l’aide d’une connexion FTP

 fichier,serveur,ftp, html
{filelink=13113}

 
use Net::FTP;
 
$username = "test_username";                # Nom d'utilisateur
$password = "test_mot_de_passe";            # Mot de passe
$remotefile = "index.html";                 # Fichier à téléchargé
 
$ftp = Net::FTP->new("ftp.monserveurFTP.com", Timeout => 60)
        or die "Impossible de se connecter au serveur.";
 
$ftp->login($username, $password)
        or die "La connexion à échouée:$_!";
 
$ftp->cwd('/httdoc/site');                  #Définir le dossier diatnt
 
#Enregistrer le fichier dans le dossier courant
$ftp->get($remotefile, $remotefile)
        or die "Can not get file.";

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]

Compter le nombre de ligne d’un fichier

 fichier, html
{filelink=14349}

$fichier="c:/index.html";
 
open(FILE, "<", $fichier)
 or die "Impossible d'ouvirir $fichier: $!";
$count++ while <FILE>;
print "$fichier contient ",$count," lignesn";
 
  ########## OU ##################
  # Non portable
 
$count = `wc -l < $fichier`;
die "la commande wc n'existe pas: $?" if $?;
chomp($count);
printf($count)  ;

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]