DiskFree sous windows

Bonjour,

J'utilise le module Filesys::DiskFree (http://search.cpan.org/~abarclay/Fil...06/DiskFree.pm). Seulement je vois qu'il utilise la commande unix df, j'ai réussi à installer une version windows de ce module. Seulement quand j'essaye l'exemple fournis:

Code:

---

1 2 3 4 5 6 7 8

use Filesys::DiskFree;   $handle = new Filesys::DiskFree;   print "The root device is ".$handle->device("/")."\n"; print "It has ".$handle->avail("/")." bytes available\n"; print "It has ".$handle->total("/")." bytes total\n"; print "It has ".$handle->used("/")." bytes used\n";

---

Je remplace le "/" par "C:" mais rien ne marche, avez-vous une idée ? Je souhaite surveillez C: et D:

Merci d'avance,

FaFa

Utilise ce module Filesys::DfPortable. Il est portable.

Code:

---

1 2 3 4 5 6 7 8 9 10

use Filesys::DfPortable;   my $ref = dfportable("C:/"); # Default block size is 1, which outputs bytes if(defined($ref)) { print"Total bytes: $ref->{blocks}\n"; print"Total bytes free: $ref->{bfree}\n"; print"Total bytes avail to me: $ref->{bavail}\n"; print"Total bytes used: $ref->{bused}\n"; print"Percent full: $ref->{per}\n" }

---

Ça marchera mieux en effet ! Merci ;)