#!/usr/bin/perl
use warnings;
##Définitions des variables ""
my $dir = "C:\\Outils";
my $dossier = "";
my $fichier = "";
my $file = "";
my $compteur1 = 0;
my $compteur2 = 0;
my $total = 0;
foreach $file (grep { -f } glob "$dir/*")
{
print ("$file a une taille de ", -s $file, " octets \n");
$compteur1 = $compteur1 + -s $file;
}
foreach $dossier (grep { -d } glob "$dir/*")
{
foreach $fichier (glob "$dossier/*")
{
print ("$fichier a une taille de ", -s $fichier, " octets \n");
$compteur2 = $compteur2 + -s $fichier;
}
}
$total = (($compteur1 + $compteur2)/1024)/1024;
print ("$dir fait $total Mo \n");
Partager