Perl script to monitor disk space and send an email

Guys, my script is slightly different, basically i’m wanna count files in a directory and after certain amount of files, the script should send me alert.

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?

Reply

Dear Peter,

> 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!

Reply

Hi ,

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

Reply

Hi All,
I am very new to Unix. Just got a new assignment where I need to write Unix Perl Script.
Can some one segues me which book can help to know Perl script for beginner.
Please help..with link also.

Thanks

Reply

Cant get this script to run. Can anyone help?

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

Reply

Thanks for the script. I tweaked it so that it would monitor multiple folders. I also added a “–test” command line option to send out a test email. Here it is:

#!/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);

Reply