如何用空格替换G.

时间:2013-03-13 06:15:39

标签: regex perl

我必须检查磁盘卷上的可用空间并使用生成此输出的命令df -h

Filesystem            Size  Used Avail Use% Mounted on
/dev/md0               27G   24G  2.1G  92% /
udev                  506M  112K  506M   1% /dev
/dev/sda1             102M   40M   63M  39% /boot

这段剧本

my (@space, @freesp);
@space = grep /\/dev\/md0/,`df -h`;
print "@space\n";

给了我

/dev/md0               27G   24G  2.1G  92% /

我可以在空格上拆分,在$freesp[0]$freesp[1]等中提供值。

但我想删除或替换带有空格的G,以便我可以将$freesp[3]与某个值进行比较,然后继续使用我的脚本。

那么我必须使用的正则表达式是什么,或者还有其他更好的方法吗?

这段代码对我有用,但我正朝着我提到的方向前进。

#!/usr/bin/perl

use strict;
use warnings;

my (@space, @freesp);

@space = grep /\/dev\/md0/, `df`;

print "@space\n";

for (@space) {
    chomp;
    @freesp = split /\s+/, $_;
}

if ($freesp[3]/1024/1024 < 2.0) {
    print "Space is less\n";
}
else {
    print "Space is OK\n";
}

#print ($freesp[3]/1024/1024);

1 个答案:

答案 0 :(得分:8)

如果您打算使用脚本解析输出,那么真正的解决方案是not to use the -h option to df。这样,输出首先不会包含“人类可读的”K / M / G后缀。

您可能希望使用-B1选项,这会导致以字节为单位报告所有大小。


修改:要回答文字问题,可以删除后缀,并按照以下方式重新调整值:

my %units = (K => 2**10, M => 2**20, G => 2**30, T => 2**40,
             P => 2**50, E => 2**60, Z => 2**70, Y => 2**80);

s/^(\d+(?:\.\d+)?)([KMGTPEZY])$/$1 * $units{$2}/e for @freesp[1 .. 3];

但是,使用-B1开关代替-h可以更轻松地提供相同的结果,更不用说更准确和可靠。