有沒有處理命令結(jié)果字符串的好方法

illidanee

小弟最近在寫腳本監(jiān)控系統(tǒng)狀態(tài).

     遇到這樣的問題.使用 df 查看系統(tǒng)的目錄使用情況.

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
   

復(fù)制代碼

使用 split 截取的時(shí)候, 根目錄 "/" 是換行了, 我想取出每個(gè)目錄的所有屬性值.請(qǐng)問如何寫比較好呢.

zhlong8

這個(gè)好尷尬，不會(huì)

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

復(fù)制代碼

這樣？
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

復(fù)制代碼

xiaofanbbk

可以試試這個(gè)模塊 Filesys:f

illidanee

mcshell 發(fā)表于 2012-12-27 10:33
這樣？
OUTPUT

額,請(qǐng)問這個(gè)

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

復(fù)制代碼

的用法是什么意思呢,沒有見過阿.

illidanee

zhlong8 發(fā)表于 2012-12-27 10:00
這個(gè)好尷尬，不會(huì)

之前看過仙子的一個(gè)系統(tǒng)檢測(cè)程序,受到啟發(fā),但是遇到這種情況....

illidanee

xiaofanbbk 發(fā)表于 2012-12-27 10:43
可以試試這個(gè)模塊 Filesys:f

我去查下cpan  

mcshell

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

復(fù)制代碼

回復(fù) 5# illidanee
等于

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

復(fù)制代碼

illidanee

mcshell 發(fā)表于 2012-12-27 12:33
回復(fù) 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);

復(fù)制代碼

將數(shù)據(jù)全部存儲(chǔ)到了數(shù)據(jù)里面了.


請(qǐng)問在正則表達(dá)式里面寫語(yǔ)句的語(yǔ)法是哪些呢?這個(gè)方面還不是很了解.但是你的意思我懂起了.

Perl_Er

回復(fù) 1# illidanee


    df有個(gè)參數(shù)-P