in reply to Problems using Filesys::DiskFree

Am I being particularily stupid here?

Ah yes actually. Where do you define handle? 

#!/usr/bin/perl -w
use Filesys::DiskFree;
$disc = '/dev/vx/dsk/var';

# get a handle object, you need to assign it to a var!
my $hadle = new Filesys::DiskFree;

# call a method on handle object but where do the ret vals go?
# if you want them you will need to put them into a var!
#$handle->avail($disc);
# assuming this method returns an array as you suggest
my @res = $handle->avail($disc);
use Data::Dumper;
print Dumper \@res;

[download]

cheers

tachyon

Replies are listed 'Best First'.
Re: Re: Problems using Filesys::DiskFree
by Ronnie (Scribe) on Mar 05, 2004 at 10:50 UTC
    Nope! It seems that I'm not the only one that can't get this to work! Funnily enough I have tried returning the output to a variable (List &/or Scalar) and they remain resolutely empty! This module must store the output somewhere and that's the real problem - where? Any ideas? The following code -
    #!/usr/bin/perl -w
    use Filesys::DiskFree;
    $handle = new Filesys::DiskFree ;
    my $count = 0 ;
    $disc = '/dev/vx/dsk/var';
    my $crap = $handle->device($disc) ;
    print "\n\t$crap\n" ;
    when run results in -

    Use of uninitialized value in concatenation (.) or string at acc_filestore_monitor.pl line 8.

    That would be because crap is empty. Trying the disks method returning the results (or so I thought) to an array produced the same error. I'm quite willing to accept that I can be somewhat dim at times but, not being familiar with methods etc to any great degree, I do think that the description of this module and it's use would leave someone with more knowledge on the subject scratching their heads! I'm probably going to use Filesys::Df to perform this function but I would like to get to the bottom of this as I don't like to be defeated in this fashion.
    Cheers Ronnie "currently vanquished" Cruickshank
[reply]

      This is vitually straight out of the docs. Having read the ten lines of synopsis you have to call it like this which as you see performs as desired. The issue is that the df() method need to be called (it calls df(1) and caches the results) so that most of the other methods have data to work with. When reading those docs substitute Filesys::DiskFree->method() with $handle->method() and you should have no issues: 

      [root@devel3 root]# cat diskfree.pl
#!/usr/bin/perl

use Filesys::DiskFree;

$handle = new Filesys::DiskFree;
$handle->df();
my $device = $ARGV[0] || "/";
print "The $device device is ".$handle->device($device)."\n";
print "It has ".$handle->avail($device)." bytes available\n";
print "It has ".$handle->total($device)." bytes total\n";
print "It has ".$handle->used($device)." bytes used\n";

[root@devel3 root]# ./diskfree.pl
The / device is /dev/sda3
It has 79425527808 bytes available
It has 142137049088 bytes total
It has 55491371008 bytes used

[root@devel3 root]# ./diskfree.pl /boot
The /boot device is /dev/sda1
It has 31190016 bytes available
It has 47755264 bytes total
It has 14099456 bytes used

[root@devel3 root]# ./diskfree.pl /dev/sda1
The /dev/sda1 device is /dev/sda1
It has 31190016 bytes available
It has 47755264 bytes total
It has 14099456 bytes used
[root@devel3 root]#

      [download]

      cheers

      tachyon

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom