Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

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

sub lePlusGrand {
    return unless -f && -s _ > $taille_fichier;
    $taille_fichier = -s _;
    $nom_fichier = $File::Find::name;

Perl: Trouver la taille d’un dossier

la somme de tous les fichiers des répertoires et sous répertoires
my $somme_octet = 0;
find sub { $somme_octet += -s },

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

$dir = "c:/";
print "Voici les fichier textes de $dir:\n";
#!/usr/local/bin/perl 
opendir(BIN, $dir) or die

Perl: Modifier un fichier

#!/usr/local/bin/perl
my $old="fichier1.txt";
my $new="fichier2.txt";
open(OLD, "<", $old)        or 
open(NEW, ">", $new)        or 
while (<OLD>)

Perl: Lire les fichiers d’un répertoire

# Spécifier le dossier à utilisé
chdir '..';                          #Dossier courant
 
# Ouvrir le

Perl: comparer les contenus des fichiers

#! /usr/local/bin/perl
 
use File::Compare;         #Module de comparaison des fichier
 
$fichier_1="c

Perl: Comment lire un fichier encodé

#!usr/bin/perl 
 
$fichier="c:/test";
 
 # Ouvrir un encodé en utf
open(FH, "< :encoding(UTF-8)", $fic

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

#! /usr/local/bin/perl
 
use File::Copy;
 
$rep="c:/data.txt";
#Copier et coller le répertoire dans un

Exemple de Barre de progression sur le console

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

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

$ uid=9496;
$ gid=40;
$number=chown($uid, $gid, 'test.vim', 'you.vim');