37,741
社区成员
发帖
与我相关
我的任务
分享#!/usr/bin/env perl
use strict;
use warnings;
my @lines = <DATA>;
my $text = join "", @lines;
my @r = grep {$_} ($text =~ /^\s+(\/.*?)?\s.*?(-?\d+ [\w%]+)+/gms);
print "@r\n";
__DATA__
/tmp_mnt/user/baoliz (silo:/home/baoliz ) : -1 total i-nodes
-1 free i-nodes
-1 used i-nodes
-1 % i-nodes used
/tmp_mnt/user/jiaw (silo:/home/jiaw ) : -1 total i-nodes
-1 free i-nodes
-1 used i-nodes
-1 % i-nodes used
/tmp_mnt/user/huxiaoh (silo:/home/huxiaoh ) : -1 total i-nodes
-1 free i-nodes
-1 used i-nodes
-1 % i-nodes used