有没有处理命令结果字符串的好方法

illidanee

小弟最近在写脚本监控系统状态.

     遇到这样的问题.使用 df 查看系统的目录使用情况.

1. 
   
2. Filesystem           1K-blocks      Used Available Use% Mounted on
   
3. /dev/mapper/VolGroup00-LogVol00
   
4.                      1347853136   8527980 1269753780   1% /
   
5. /dev/cciss/c0d0p2      4956316    217360   4483124   5% /var
   
6. /dev/cciss/c0d0p1       101086     12379     83488  13% /boot
   
7. tmpfs                 32994564         0  32994564   0% /dev/shm
   

复制代码

使用 split 截取的时候, 根目录 "/" 是换行了, 我想取出每个目录的所有属性值.请问如何写比较好呢.

zhlong8

这个好尴尬，不会

mcshell

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. $/ = "";
   
5. while(<DATA>){
   
6.        
   
7.     1 while(/(\S+)\s+((?:[\d%]+\s+){4})(\S+)(?{print "$1|$2|$3\n"})/g);
   
8.    
   
9. }
   
10. __DATA__
    
11. Filesystem           1K-blocks      Used Available Use% Mounted on
    
12. /dev/mapper/VolGroup00-LogVol00
    
13.                      1347853136   8527980 1269753780   1% /
    
14. /dev/cciss/c0d0p2      4956316    217360   4483124   5% /var
    
15. /dev/cciss/c0d0p1       101086     12379     83488  13% /boot
    
16. tmpfs                 32994564         0  32994564   0% /dev/shm

复制代码

这样？
OUTPUT

1. /dev/mapper/VolGroup00-LogVol00|1347853136   8527980 1269753780   1% |/
   
2. /dev/cciss/c0d0p2|4956316    217360   4483124   5% |/var
   
3. /dev/cciss/c0d0p1|101086     12379     83488  13% |/boot
   
4. tmpfs|32994564         0  32994564   0% |/dev/shm

复制代码

xiaofanbbk

可以试试这个模块 Filesys:f

illidanee

mcshell 发表于 2012-12-27 10:33
这样？
OUTPUT

额,请问这个

1. (?{print "$1|$2|$3\n"})

复制代码

的用法是什么意思呢,没有见过阿.

illidanee

zhlong8 发表于 2012-12-27 10:00
这个好尴尬，不会

之前看过仙子的一个系统检测程序,受到启发,但是遇到这种情况....

illidanee

xiaofanbbk 发表于 2012-12-27 10:43
可以试试这个模块 Filesys:f

我去查下cpan  

mcshell

1. 1 while(/(\S+)\s+((?:[\d%]+\s+){4})(\S+)(?{print "$1|$2|$3\n"})/g);

复制代码

回复 5# illidanee
等于

1. while(/(\S+)\s+((?:[\d%]+\s+){4})(\S+)/g){
   
2. print "$1|$2|$3\n"
   
3. }

复制代码

illidanee

mcshell 发表于 2012-12-27 12:33
回复 5# illidanee
等于

非常感谢,我的问题解决了.
代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. 
   
7. $/="";
   
8. my $str;
   
9. my $i=0;
   
10. open(CMD, "df |");
    
11. while(<CMD>){
    
12.   while(/(\S+)\s+([\d%]+)\s+([\d%]+)\s+([\d%]+)\s+([\d%]+)\s+(\S+)/g) {
    
13.     @{${$str}[$i++]}=($1,$2,$3,$4,$5,$6);
    
14.   }
    
15. }
    
16. close(CMD);
    
17. 
    
18. print Dumper($str);

复制代码

将数据全部存储到了数据里面了.


请问在正则表达式里面写语句的语法是哪些呢?这个方面还不是很了解.但是你的意思我懂起了.

Perl_Er

回复 1# illidanee


    df有个参数-P