我是perl世界的新手。我写了一个用于计算可用磁盘空间的perl脚本。但是每当输出生成时,它给出的数字与使用df -h命令实际显示的数字不同。
所以我的要求是我要显示特定的已安装的可用磁盘空间。例如,我只想显示/ boot"使用%"图,它应该与df -h命令图匹配。
请点击名为Actual Script的链接,找到我的脚本,以供参考。
答案 0 :(得分:0)
来自Filesys::Df
的df
功能
module返回对带有fs
信息字段
perldoc perlreftut
)的引用
$VAR1 = {
user_bavail => '170614.21875',
user_blocks => '179796.8203125',
user_fused => 408762,
used => '9182.6015625',
fused => 408762,
bavail => '170614.21875',
user_used => '9182.6015625',
su_bavail => '180077.20703125',
ffree => 11863876,
fper => 3,
user_favail => 11863876,
favail => 11863876,
user_files => 12272638,
blocks => '189259.80859375',
su_favail => 11863876,
files => 12272638,
per => 5,
su_blocks => '189259.80859375',
bfree => '180077.20703125',
su_files => 12272638
};
所以你可以自由空间
my $ref = df($dir, 1);
print $ref->{bavail} . " bytes\n";