423,688 Members | 1,879 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 423,688 IT Pros & Developers. It's quick & easy.

Monitor the disk usage using perl without pakages

P: 1
se strict;
use warnings;
my $x = <STDIN>;

foreach my $x ( sort glob('$x/*') ) {
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$a time,$mtime,$ctime,$blksize,$blocks)
= stat($x);
printf("%-40s %8u bytes\n", $x, $size);
Sep 1 '18 #1
Share this Question
Share on Google+
1 Reply

Expert Mod 5K+
P: 5,285
Rajesh Anumula:
Simple requests for code are not what we're about at Bytes.com
If you have a specific problem - we're happy to help.
If you have tried something already, then post your code; however, please use the [CODE/] format tool to format your script.
Sep 1 '18 #2

Post your reply

Sign in to post your reply or Sign up for a free account.