perl - 获取磁盘空间并将其与最常用的空间分开，但放在一个列表中

Question

想要获得磁盘空间并将其与最常用的空间分开，但放在一个列表中

示例如何获取已用空间：

df -P | grep -vE 'Filesystem' | awk '{ print $5 " " $6 }'

输出：

89% /
1% /oralog
24% /oradata
0% /dev/shm

预期视图：

[bad] 89% /
[ok] 1% /oralog
[ok]24% /oradata
[ok]0% /dev/shm

Answer 1

grep您可以通过跳过第一行来删除awkwithNR>1作为块的条件。只需将 的值设置x为好/坏的限制，在示例中我将限制设置为 80：

$ df -P | awk 'NR>1{print ($5>x)?"[bad]":"[okay]",$5,$6}' OFS='\t' x=80
[bad]   89%    /
[ok]    1%     /oralog
[ok]    24%    /oradata
[ok]    0%     /dev/shm

Answer 2

那这个呢？

awk '{if($5>20) a="[bad]"; else a="[good]";} {print a, $5 " " $6}'

全部一起：

$ df -P | grep -vE 'Filesystem' | awk '{if($5>20) a="[bad]"; else a="[good]";} {print a, $5 " " $6}'

测试（阈值为 20%）：

$ df -P | grep -vE 'Filesystem' | awk '{if($5>20) a="[bad]"; else a="[good]";} {print a, $5 " " $6}'
[bad] 25% /
[good] 1% /dev
[good] 1% /run
[good] 0% /run/lock
[good] 1% /run/shm
[good] 1% /run/user

Answer 3

只有使用率最高的磁盘具有[bad]

df -P | perl -anE '$F[4]=~s/%//||next;push@r,[@F];$m<$F[4] and $m=$F[4];END{say $m==$$_[4]?"[bad]":"[ok]"," $$_[4]% $$_[5]"for@r}'

输出

[ok] 44% /
[ok] 0% /lib/init/rw
[ok] 1% /dev
[ok] 0% /dev/shm
[bad] 61% /ftp