Illegal division by zero at ./df.pl line 23.

Line 23 is
my $df_free = (($avail) / ($avail+$used)) * 100.0;

#!/usr/bin/perl
# Available under BSD License. See url for more info:
# http://www.cyberciti.biz/tips/howto-write-perl-script-to-monitor-disk-space.html
# Pass in command line parameter "--test" to perform an email test.
use strict;
use warnings;
use Filesys::DiskSpace;
# ---------------------------
# Configuration section
# ---------------------------
# default warning level
my $default_warning_level=10;
# email setup
my $to='admin@yourdomain.com';
my $from='webmaster@YOURDOMAIN.COM';
my $subject='Low Disk Space';
# folders to check
sub perform_checks {
    &check_free_space("/", 30);
    &check_free_space("/mnt/data");
    &check_free_space("/mnt/storage");
    &check_free_space("/mnt/backup", 20);
}
# ---------------------------
# Main script
# ---------------------------
my $out = "";
# Check free space for folder and add to email message if it is below warning level.
# Parameters:
#   folder_to_check - The path of the filesystem to check.
#   warning_level - If the free disk space percentage is below this level,
#                   an email is sent.  If this parameter is omitted, the
#                   default level will be used.
sub check_free_space {
    my ($dir, $warning_level) = @_;
    # set warning level to default if not specified
    if(!defined($warning_level)) {
        $warning_level = $default_warning_level;
    }
    # get df
    my ($fs_type, $fs_desc, $used, $avail, $fused, $favail) = df $dir;
    # calculate
    my $df_free = ($avail / ($avail + $used)) * 100.0;
    # compare
    if (($df_free < $warning_level) || (defined($ARGV[0]) && ($ARGV[0] eq "--test"))) {
        # append to email
        $out .= sprintf("WARNING Low Disk Space on $dir : %0.2f%% ()\n",$df_free);
    }
}
&perform_checks;
# check if there are warnings to email
if($out ne "") {
    # send email using UNIX/Linux sendmail
    open(MAIL, "|/usr/sbin/sendmail -t");
    ## Mail Header
    print MAIL "To: $to\n";
    print MAIL "From: $from\n";
    print MAIL "Subject: $subject\n";
    ## Mail Body
    print MAIL $out;
}
close(MAIL);

h2ph * sys/*

running on Solaris 10

Makefile.PL and make complete successfully
make test spits out errors

# make test
PERL_DL_NONLAZY=1 /usr/bin/perl “-MExtUtils::Command::MM” “-e” “test_harness(0, ‘blib/lib’, ‘blib/arch’)” t/*.t
t/1st…………ok
t/freebsd-ufs….skipped
all skipped: no reason given
t/linux-ext2…..skipped
all skipped: no reason given
t/linux-vfat…..skipped
all skipped: no reason given
t/solaris-ufs….An error occured. statvfs failed. Did you run h2ph?
FAILED before any test output arrived
Failed Test Stat Wstat Total Fail Failed List of Failed
—————————————————————–
t/solaris-ufs.t ?? ?? % ??
3 tests skipped.
Failed 1/5 test scripts, 80.00% okay. 8/9 subtests failed, 11.11% okay.
*** Error code 29
make: Fatal error: Command failed for target `test_dynamic’

running h2ph hangs after ‘redefine’ message
# h2ph -r -l
require ‘_h2ph_pre.ph’;
no warnings ‘redefine’; // hangs here

I added require ‘_h2ph_pre.ph’; to the h2ph and re-ran with the same result.

What’s up with this?
Solaris 10

./df.pl
Illegal division by zero at ./df.pl line 23.

Thanks,

Thanks

I am a newbie in perl….can any body tell how to use the same script when i am using windows -XP?

Thanks in advance

Thanks

> Although your perl script is nice, you could do it with a standard shell script as well:

for fs in `df -k|awk ‘{print $1}’|sed -n “2,14 p”`; do
x=”`df -kl | grep $fs | awk ‘{ print $5 }’| sed -e ‘s/%//’`”
…
done

Why do You use pipe snakes, like df -k|awk ‘{print $1}’|sed -n “2,14 p” and df -kl | grep $fs | awk ‘{ print $5 }’| sed -e ‘s/%//’??? If You start awk why do You need a grep and sed? On the other hand if You have n disks You call df (n+1) times instead of once.

Good byte!

I’ve two problems with the current.

1. I’m recieving emails but without body message
2. I’m getting following error while execute this script:

Useless use of private variable in void context at ./VMCount.pl line 38.

However there is nothing wrong with line# 38, as i hve “}” on this line

any comments?

#!/usr/bin/perl
use strict;
use warnings;
# file system to monitor
my $target = shift;
# warning level
my $warning_level=10;
# email setup
my $to='whomever@whatever.com';
my $from='root@whereever.com';
my $subject='Low Disk Space Warning';
# get df
my ($fs_dev, $fs_type, $size, $used, $avail, $use, $mount) = split(" ", `df -PT $target | tail +2`);
# calculate
my $df_free = (($avail) / ($avail+$used)) * 100.0;
# compare
if ($df_free < $warning_level) {
my $out = sprintf("WARNING Low Disk Space on $target : %0.2f%% ()\n",$df_free);
# send email using UNIX/Linux sendmail
open(MAIL, "|/usr/sbin/sendmail -t");
## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
## Mail Body
print MAIL $out;
close(MAIL);
}

I am a newbie to perl programming. Can somebody explain the following line? I understood rest of the program except for this bit. How are we getting this array out of the df command?

my ($fs_type, $fs_desc, $used, $avail, $fused, $favail) = df $dir;

Thanks for your help!

I tried running the script on my mac os x leopard 10.5.3 machine and it says “Cannot use df on this machine (untested or unsupported).”

What should I do? Sorry I’m quite a newbie into this thing.