perl - unix df 上的正则表达式帮助

Question

我需要一些帮助来调整我的代码以在此 unix df 输出中寻找另一个属性:

例如

Filesystem     Size    Used   Avail Capacity  Mounted on
/dev/ad4s1e     61G     46G    9.7G    83%    /home

到目前为止，我可以提取容量，但现在我想添加 Avail。

这是我的 perl 行，用于获取容量。我如何获得“可用”？谢谢!

my @df = qx (df -k /tmp);
my $cap;
foreach my $df (@df)
        {
         ($cap) =($df =~ m!(\d+)\%!);
        };

print "$cap\n";

Answer 1

简单的 perl 方法:

perl -MFilesys::Df -e 'print df("/tmp")->{bavail}, "\n"'