kalyanbhave has asked for the wisdom of the Perl Monks concerning the following question:
Below is the code I am using:"C:\Perl64\bin>disk.pl Can't locate Filesys/DiskSpace.pm in @INC (@INC contains: C:/strawb e/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/lib .) at C: isk.pl line 4. BEGIN failed--compilation aborted at C:\Perl64\bin\disk.pl line 4."
#!/usr/bin/perl use strict; use warnings; use Filesys::DiskSpace; # file system /home or /dev/sda5 my $dir = "H:"; # get data for /home fs my ($fs_type, $fs_desc, $used, $avail, $fused, $favail) = df $dir; # calculate free space in % my $df_free = (($avail) / ($avail+$used)) * 100.0; # display message my $out = sprintf("Disk space on $dir == %0.2f\n",$df_free); print $out;.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: not able to send an email automaticaly
by roboticus (Chancellor) on Sep 05, 2012 at 13:26 UTC | |
|
Re: not able to send an email automaticaly
by Corion (Patriarch) on Sep 05, 2012 at 13:26 UTC | |
by kalyanbhave (Initiate) on Sep 06, 2012 at 08:50 UTC | |
by marto (Cardinal) on Sep 06, 2012 at 09:31 UTC | |
|
Re: not able to send an email automaticaly
by aitap (Curate) on Sep 06, 2012 at 15:45 UTC |