A Voir sur le même Sujet

• 

  Perl: Lire les fichiers d’un répertoire

  {filelink=14342} # Spécifier le dossier à utilisé chdir ‘..’; #Dossier courant # Ouvrir le dossier opendir(DOSSIER, ‘.’) or die “Impossible d’ouvrir le dossier.”; # Lister …

• 

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

  {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é …

• 

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

  {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 = …

• 

  Perl: Copier un fichier binaire(Ex: image)

  {filelink=14339} ################ Copie des fichiers binairs ############################ # Copier et coller un fichier image # ouvir ce fichier en mode lecture open file_src, “c:/icon2.gif”; # …

• 

  Programme: Copier le contenu d’un fichier dans un autre

  {filelink=14337} ##############Opération sur le fichier ########## # Copier et coller un fichier # # ouverture des fichiers open file_src, “c:/data.txt”; # Fichier destinataire while (defined($ligne …

• 

  Perl: Modifier un fichier

  {filelink=15267} #!/usr/local/bin/perl my $old=”fichier1.txt”; my $new=”fichier2.txt”; open(OLD, “

• 

  Compter le nombre de ligne d’un fichier

  {filelink=14349} $fichier=”c:/index.html”; open(FILE, “

• 

  Les différents mode d’ouverture des fichiers

  {filelink=14338} ################ Utilisation de ‘open’ et ‘sysopen’ ############################ # Pendant l’overture du fichier, seul le mode # spécifié définit les droits et les actions # …

• 

  Perl: Comment lire un fichier encodé

  {filelink=14348} #!usr/bin/perl $fichier=”c:/test”; # Ouvrir un encodé en utf open(FH, “< :encoding(UTF-8)", $fichier) or die "Impossible d'ouvrir $fichier: $!"; Livres sur ce sujet [amazon_image id="2841773698" ...

• 

  Exemple d’utilisation d’une connexion FTP

  {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 …

• 

  Modifier les droits et les permissions des fichiers avec la fonction ‘chmod’

  {filelink=14345} #! /usr/local/bin/perl $fichier_1=”c:/test.txt”; chmod(0400, $fichier_1); # le propriétaire du fichier a # la permission de lecture chmod(0200, $fichier_1); # le propriétaire du fichier a …

• 

  Renommer ou supprimer un répertoire/fichier

  {filelink=14346} #!usr/bin/perl $rep=”c:/test”; # Renommer le fichier rename($rep,”c:/test2″); # Supprimer le fichier unlink($rep) or die “Impossible de supprimer $rep: $!”; Livres sur ce sujet [amazon_image …

• 

  Comment copier ou déplacer un fichier/répertoire

  {filelink=14347} #! /usr/local/bin/perl use File::Copy; $rep=”c:/data.txt”; #Copier et coller le répertoire dans un nouveau emplacement copy($rep,”d:/test”) or die “La Copie à échouée, cause: $!”; # …

• 

  Traiter un fichier en mode binaire sous un OS

  {filelink=14336} open (FILEHANDLE, “>c:/test.txt”) or croak (“Impossible d’ouvrir le fichier”); # Modifier le mode d’accès en binaire # Note: ce Mode n’a aucun effet # …

• 

  Perl: comparer les contenus des fichiers

  {filelink=14344} #! /usr/local/bin/perl use File::Compare; #Module de comparaison des fichier $fichier_1=”c:/test.txt”; $fichier_2=”c:/data.txt”; if (compare($fichier_1, $fichier_2) == 0) { printf(“%s et %s ont le même contenu”,$fichier_1,$fichier_2); …