#!/usr/local/bin/perl $dir = "c:/"; print "Voici les fichier textes de $dir:\n"; opendir(BIN, $dir) or die "Impossible d'ouvrir le dossier $dir: $!"; while( $fichier = readdir BIN) { print "$fichier\n" if -T "$dir/$fichier"; } closedir(BIN);
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); …