Discussion :

[nefast]

Bonjour,

J'ai besoin de récupérer la taille de plusieurs répertoires sur différents serveurs windows 2003.

Je débute sous Perl.
J'ai dans un premier temps fait un script qui exécutait en local le binaire du.exe :
my $ST = `psexec \\\\172.x.x.x\\ du -sm D:\\Partage`;

Sur des répertoires de quelques giga c'est rapide, mais sur des répertoires de plusieurs centaines de giga c'est interminable.

Je cherche donc une autre solution plus rapide, peut être existe t'il un module?

En vous remerciant par avance.

[nefast]

Bonjour, j'ai avancé mais maintenant je suis bloqué sur la récursivité:

#!/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");

C'est une partie de script que j'ai récupéré et modifier.
Donc là je cherche comment rendre la fonction glob récursive.

[djibril]

Bon, Une façon simple de calculer la taille d'un répertoire en Perl est d'utiliser le module suivant : Filesys::DiskUsage

Installe le et pour l'utiliser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
use warnings;
use Carp;
 
use Filesys::DiskUsage qw/du/;
 
my $Size = du("C:/");

voilà

[nefast]

Super merci.

Je test dès que j'ai compris comment installer le module... (si si j'ai lu la faq).

[nefast]

J'ai trouvé la version zip ici:
http://ppm.activestate.com/PPMPackag...-only/Windows/

Avec le .ppd qui va bien du coup ça va beaucoup mieux pour l'installation, je pourrai tester demain.

Bonne soirée

[djibril]

Pour installer, t'as juste à faire ceci sous dos

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ppm install Filesys::DiskUsage

[nefast]

J'ai essayé rapidement sur un dossier en local et ça fonctionne.

Reste à tester sur le dossier d'un serveur distant et faire le script complet.

Je poste quand c'est fini ou si j'ai un problème.

Encore merci.

EDIT: j'avais essayé cette commande, ça ne passait pas le proxy avec login et mdp (malgré avoir spécifier tout ce qui fallait en suivant la FAQ)