By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,434 Members | 2,963 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,434 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,397
Rajesh Anumula:
Simple requests for code are not what we're about at
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.