Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Perl: Trouver le plus grand fichier d’un répertoire

Your ads will be inserted here byEasy AdSense.Please go to the plugin admin page to paste your ad code. Download #!/usr/local/bin/perl use File::Find; @ARGV = (".") unless @ARGV; my ($taille_fichier, $nom_fichier)...
Comments Off

Perl: Trouver la taille d’un dossier

Your ads will be inserted here byEasy AdSense.Please go to the plugin admin page to paste your ad code. Download #!/usr/local/bin/perl   use File::Find; @ARGV = ("C:\\BD") unless @ARGV; # stocker la somme de tous...
Comments Off

Perl: Lister les fichiers d’un répertoire qui contiennent des textes

Your ads will be inserted here byEasy AdSense.Please go to the plugin admin page to paste your ad code. Download #!/usr/local/bin/perl   $dir = "c:/"; print "Voici les fichier textes de $dir:\n"; opendir(BIN,...
Comments Off

Perl: Modifier un fichier

Download #!/usr/local/bin/perl my $old="fichier1.txt"; my $new="fichier2.txt"; open(OLD, "<", $old) or die "Impossible d'ouvrir $old: $!"; open(NEW, ">", $new) ...
Comments Off

Perl: Lire les fichiers d’un répertoire

Download # Spécifier le dossier à utilisé chdir '..'; #Dossier courant   # Ouvrir le dossier opendir(DOSSIER, '.') or die "Impossible d'ouvrir le dossier.";   # Lister les fichiers print...
Comments Off

Perl: comparer les contenus des fichiers

Download #! /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) { ...
Comments Off

Perl: Comment lire un fichier encodé

Download #!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 ...
Comments Off

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

Download #! /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: $!";   #...
Comments Off

Exemple de Barre de progression sur le console

Download #!/usr/bin/perl   binmode(STDOUT,":unix"); for (0..20) { print "."; sleep 1; } Livres sur ce sujet [amazon_image id=”2841773698″ link=”true” target=”_blank”...
Comments Off

Changer le propriétaire et le groupe d’un fichier

Download $ uid=9496; $ gid=40; $number=chown($uid, $gid, 'test.vim', 'you.vim'); Livres sur ce sujet [amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art...