Discussion :

[_FaFa_]

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 :

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

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

[djibril]

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

Code :

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

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"
  }

[_FaFa_]

Ça marchera mieux en effet ! Merci