use Filesys::Diskspace

[vasu1308]

Hi

I want to monitor disk space and send a email if it exceeds the limit.
I m using "use Filesys:: Diskspace" but there is an error in compling.

 
"Can't locate Filesys/Diskspace.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.4 /usr/local/share/perl/5.8.4 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at disk.pl line 4.
BEGIN failed--compilation aborted at disk.pl line 4."

Thanks
Vasu

[KevinADC]

You need to install the module.

[miller]

That is not part of the core modules of perl:
http://perldoc.perl.org/index-modules-F.html

So as Kevin states, you'll have to install it:
http://cpan.perl.org/misc/cpan-faq.h...l_Perl_modules

I'm not certain this'll be a module you want to use though. By browing the cpan description, you'll notice that the module has not been updated since 1999. This might be a problem, but I would consider looking through the other Filesys modules to determine if there is one that might be better, as in maintained more frequently and therefore supports more file systems.
http://search.cpan.org/search?query=Filesys

- Miller

[KevinADC]

Use perl to send the email but personally, I would think the operating system would be better equiped to handle the disk monitoring.

[miller]

Use perl to send the email but personally, I would think the operating system would be better equiped to handle the disk monitoring.

Hrm.... you're probably right Kev. I think I fell into an X-Y trap as I tend to shy away from platform specific solutions if they can be avoided.

Nevertheless, since this is meant for a specific machine, a simple parsing of `df` might be acceptable:

my @filesystems = `df`;
shift @filesystems; # Remove header row
foreach (@filesystems) {
    my ($fs, undef, undef, $avail) = split /\s+/;
    print "$fs = $avail\n";
}
 

- Miller

[KevinADC]

I love perl but somethings are just so much easier using the OS. If this had to be cross platform then sticking with perl would most likely be the way to go, but since it's not and this doesn't sound like anything too mission critical, I'd go with the OS if it were me.

Maybe the OP will even reply to this thread... ;)

[vasu1308]

Thank you Miller

Hrm.... you're probably right Kev. I think I fell into an X-Y trap as I tend to shy away from platform specific solutions if they can be avoided.

Nevertheless, since this is meant for a specific machine, a simple parsing of `df` might be acceptable:

my @filesystems = `df`;
shift @filesystems; # Remove header row
foreach (@filesystems) {
    my ($fs, undef, undef, $avail) = split /\s+/;
    print "$fs = $avail\n";
}
 

- Miller

[vasu1308]

Thank you Kevin

Vasu

You need to install the module.

[miller]

Thank you Kevin

Vasu

Your welcome Vasu

Happy to help.

- Miller