03-19-2008
I have written this script...but i am getting a big error ..
#!/usr/bin/perl
use strict;
use warnings;
use Filesys:DiskSpace;
#file system to monitor
my $dir = "/home";
#warning level
my $warning_level = 0;
my $df_free = (($avail) / ($avail+$used)) * 100.0;
if ($df_free < $warning_level){
my $out = sprintf ("warning low disk space on $dir : %0.2f%%()\n",$df_free);
}
error:Can't locate Filesys/DiskSpace.pm in @INC (@INC contains: /usr/lib64/perl5/5.8.5/x86_64-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib64/perl5/site_perl/5.8.5/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.4/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.3/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.2/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.1/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.0/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.5/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.4/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.3/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.2/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.1/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.0/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at ./diskspace.pl line 4.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi
I'm trying to install gcc and the installation program tells me that I'm out of disk space! I have just installed the os (using the default settings for partitions and sizes) and have only installed apache on the machine. Can it really be out of disk space already?
How do I check how much... (4 Replies)
Discussion started by: alfabetman
4 Replies
2. UNIX for Dummies Questions & Answers
Hello,
Can someone please tell me which command to use to determine the available disk space on a given disk device?
I have to write a shell script that compresses files and stores them in a specific location but I am not sure how "conservative" I should be?
Thanks in advance!
Al. (4 Replies)
Discussion started by: alan
4 Replies
3. Solaris
I'm a Unix newbie running Solaris 9. After installing a fresh copy on a 40GB drive I noticed the available disk space is 2% free or approximately 200MB available. Is that possible? Did I do something wrong? (4 Replies)
Discussion started by: jbarbuto
4 Replies
4. HP-UX
Hi Experts.
I had 100% disk full , even though i have removed 2 GB space still dbf command shows 100%.
How to rectify that. Appreciate your prompt help. Thanks (1 Reply)
Discussion started by: test10002
1 Replies
5. Filesystems, Disks and Memory
Hello All-
Am new member to this forum. Have some unix experience. But true believer in it compared to windows.
Have a question regarding the disk space.
I know a command to check the total disk space utilization using:
df -k .
but what is the command to check the same disk space by... (6 Replies)
Discussion started by: milkyway
6 Replies
6. Shell Programming and Scripting
Hi
This is my script for disk space monitoring
clear
if
then
echo "You must be root user to execute the script"
fi
ALERT_LEVEL=10
CONSUMPTION_LEVEL= `df -k | awk {'print $5'} | cut -d '%' -f1 | sed "1 d"`
for i in $CONSUMPTION_LEVEL
do
FILE_SYSTEM=`df -k | awk {'print $1'} |... (3 Replies)
Discussion started by: chrs0302
3 Replies
7. Shell Programming and Scripting
Hi Guys
i have a nice little piece of code then i need to modify so that is does not look at /Voulmes/*
thanks
sub disk_full {
my $i = 0;
open( DF, "df -l|" );
while (<DF>) {
#chomp();
next if (/^\/proc\b/);
$i++;
next if ( $i == 1 );
... (3 Replies)
Discussion started by: ab52
3 Replies
8. Shell Programming and Scripting
Hi,
I am new to shell scripting, and want to monitor disk space using shell script continously on server, which will shoot mail after crossing threshold limit
Please suggest.
Regards
Manoj (1 Reply)
Discussion started by: manoj.solaris
1 Replies
9. Solaris
Hi,
I am installing TAM-eb components in solaris V10.o, unfortunately am running out of space. when I -df i come across a lot of directories. i would like to know whether there is any way to free some disk space. (10 Replies)
Discussion started by: ichwaiznicht
10 Replies
10. UNIX for Dummies Questions & Answers
Hi,
I have this :
uname -a
Linux servername 2.6.18-194.11.3.el5PAE #1 SMP Mon Aug 23 15:57:10 EDT 2010 i686 i686 i386 GNU/Linux
df -k
Sys. de fich. 1K-blocs Occupied Disponible Capacity Monted on
/u01/applis 10321208 3190160 6606760 33% /applis
Does it mean... (1 Reply)
Discussion started by: big123456
1 Replies
LEARN ABOUT DEBIAN
podpath
PODPATH(1p) User Contributed Perl Documentation PODPATH(1p)
NAME
podpath - print the path to the pod
DESCRIPTION
This is just a front-end that calls either stdpods or pmpath depending on what it looks like. It works on both regular the standard
podpages and the module ones.
EXAMPLES
$ podpath Cwd
/usr/local/devperl/lib/5.00554/Cwd.pm
It works with alternate installations, too:
$ devperl -S podpath perlfunc
/usr/local/devperl/lib/5.00554/pod/perlfunc.pod
$ oldperl -S podpath IO::Handle
/usr/lib/perl5/i386-linux/5.00404/IO/Handle.pm
$ filsperl -S podpath Thread
/usr/local/filsperl/lib/5.00554/i686-linux-thread/Thread.pm
SEE ALSO
stdpods(1), pmpath(1), perlmodlib(1).
AUTHORS and COPYRIGHTS
Copyright (C) 1999 Tom Christiansen.
Copyright (C) 2006-2008 Mark Leighton Fisher.
This is free software; you can redistribute it and/or modify it under the terms of either: (a) the GNU General Public License as published
by the Free Software Foundation; either version 1, or (at your option) any later version, or (b) the Perl "Artistic License". (This is the
Perl 5 licensing scheme.)
Please note this is a change from the original pmtools-1.00 (still available on CPAN), as pmtools-1.00 were licensed only under the Perl
"Artistic License".
perl v5.10.1 2010-02-22 PODPATH(1p)