Archive for the ‘Fichiers’ Category

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


{filelink=15267#}

#!/usr/local/bin/perl
use File::Find;
@ARGV = (".") unless @ARGV;
my ($taille_fichier, $nom_fichier) = (-1, "");
sub lePlusGrand {
    return unless -f && -s _ > $taille_fichier;
    $taille_fichier = -s _;
    $nom_fichier = $File::Find::name;
}
find(\&lePlusGrand, @ARGV);
print "le fichier le plus grand
  de @ARGV  est $nom_fichier ($taille_fichier octets)\n";

Perl: Modifier un fichier


{filelink=15267}

#!/usr/local/bin/perl
my $old="fichier1.txt";
my $new="fichier2.txt";
open(OLD, "<", $old)        or die "Impossible d'ouvrir $old: $!";
open(NEW, ">", $new)        or die "Impossible d'ouvrir $new: $!";
while (<OLD>) {
    # Modifier le contenu du fichier temporaire
    print NEW $_."\nBienvenue"           or die "Ecriture Impossible dans $new: $!";
}
# Fermer les différents fichier
close(OLD)                  or die "Impossible de fermer $old: $!";
close(NEW)                  or die "Impossible de fermer $new: $!";
# créer une copie du fichier original
rename($old, "$old.orig")   or die "Impossible de renomer $old à $old.orig: $!";
# Utilisation du fichier temporaire à la place de l'original
rename($new, $old)          or die "Impossible de renomer $new à $old: $!";

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]

Perl: Lire les fichiers d’un répertoire

 fichier, list, list
{filelink=14342}

# Spécifier le dossier à utilisé
chdir '..';                          #Dossier courant
 
# Ouvrir le dossier
opendir(DOSSIER, '.')
    or die "Impossible d'ouvrir le dossier.";
 
# Lister les fichiers
print join (', ', readdir(DOSSIER));
 
# Fermer le gestionnaire
closedir DOSSIER;

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]

Perl: comparer les contenus des fichiers

 fichier
{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);
}
else
 {
   printf("%s et %s sont différents",$fichier_1,$fichier_2);
 }

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]

Perl: Comment lire un fichier encodé

 fichier
{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″ 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]

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

 fichier
{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: $!";
 
# Déplacer le fichier sous un nouveau nom
move($rep, "test.new")
    or die "Impossible de déplacer le fichier, cause: $!";

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]

Exemple de Barre de progression sur le console


{filelink=14340}

#!/usr/bin/perl
 
binmode(STDOUT,":unix");
for (0..20) {
    print "."; sleep 1;
}

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]

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

 fichier
{filelink=14350}

$ 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 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]