高手幫忙解釋此腳本

princeduan

1. 
   
2. #! /opt/perl/bin/perl
   
3. 
   
4. #
   
5. #xp4 ps wrapper
   
6. #
   
7. $ENV{UNIX95}=qq(XPG4);
   
8. 
   
9. #
   
10. #-o arg definition
    
11. #
    
12. #ps -el + VSZ
    
13. $0_arg = qq(flags,state,user,pid,ppid,cpu,intpri,nice,addr,sz,vsz,wchan,stime,tty,time,args);
    
14. #ps -ef + sz,vsz
    
15. $o_arg = qq(user,pid,ppid,cpu,stime,tty,time,sz,vsz,args);
    
16. 
    
17. #-C ag definition
    
18. 
    
19. $C_arg = qq();
    
20. 
    
21. $header = 1;
    
22. $filter = qq(oracle|hul|jp1);
    
23. 
    
24. $cmd = qq(ps -o $o_arg);
    
25. 
    
26. if ($C_arg =~ /`$/) {
    
27.     $cmd .= qq(-e);
    
28. } else {
    
29.      $cmd .= qq(-C $C_arg);
    
30. }
    
31. 
    
32. open(FH, "$cmd |") || die;
    
33. while (<FH>) {
    
34.     if ($header) {
    
35.         print;
    
36.         $header = 0;
    
37.     } else {
    
38.         if ($filter =~ /`$/) {
    
39.             print;
    
40.         } elsif (/$filter/) {
    
41.             print;
    
42.         }
    
43.     }
    
44. }
    
45. close(FH);
    
46. exit 0;
    

復(fù)制代碼

謝謝！:wink:

freeand

樓主不如說說自己哪里不明白的、需要解釋的地方。

腳本的主要功能是運(yùn)行ps命令（unix系統(tǒng)上正在運(yùn)行的進(jìn)程列表），得出結(jié)果進(jìn)行分析并顯示出來。

princeduan

感覺和一般的shell腳本不太一樣，基本上看不懂。
能幫忙解釋下2,6,8,9,11行的意思嗎？
{:3_200:}

午夜凋零

princeduan 發(fā)表于 2012-02-05 19:58
感覺和一般的shell腳本不太一樣，基本上看不懂。
能幫忙解釋下2,6,8,9,11行的意思嗎？

2,6,8,9,11，不知道你是不是想讓解釋qq的意思？
qq就是“”，雙引號(hào)。

zhlong8

最專業(yè)的解釋

q/STRING/
'STRING'

A single-quoted, literal string. A backslash represents a backslash unless followed by the delimiter or another backslash, in which case the delimiter or backslash is interpolated.

1.     $foo = q!I said, "You said, 'She said it.'"!;
   
2.     $bar = q('This is it.');
   
3.     $baz = '\n'; # a two-character string

復(fù)制代碼

qq/STRING/
"STRING"

A double-quoted, interpolated string.

1.     $_ .= qq
   
2.     (*** The previous line contains the naughty word "$1".\n)
   
3.     if /\b(tcl|java|python)\b/i; # :-)
   
4.     $baz = "\n"; # a one-character string

復(fù)制代碼

lastfile

perl, 看不懂

princeduan

能不能幫忙把每行具體的意思說下？

princeduan

此腳本進(jìn)行了更新。哪位高手能幫忙解釋下？
每行簡(jiǎn)單一句話就可以。{:3_200:}