用AWK來過濾nginx日誌中的特定值~~~薦

看到這裡我有點發愁了，因為cuid 和 action 所在的列不是固定的，用簡單的AWK過濾不行，需要藉助AWK的迴圈和判斷了，而這方面我沒有做過於是就在群裡發了求助資訊，這時候有兩個朋友 給了我回復一個是 輝太郎 另一個是 jeremy.zhang
他們的方案也不同，一個是用perl 指令碼，另一個是直接用awk
先說說 用perl吧，其實perl我也不太懂，直接把他寫的指令碼貼上來
#!/usr/bin/perl -w
open(MYFILE,”/mnt/disk/newlog”) || die “$!”;
while(<MYFILE>)
     {
            $str = $_;
                if ($str =~ m/(.*?)[/s)
                        {
                              $var1 =  $1;
                                 print  $var1;
                                     }
                if ($str =~ m/[(.*?)”/s)
                       {
                              $var4 = $1;
                                 print $var4;
                                    }
                if ($str =~ m/cuid=(d+)/s)
                          {
                                  $var2 = $1;
                                    print “cuid=”,$var2,” “;
                                         }
               if ($str =~ m/action=(w+)/s)
                           {
                                   $var3 = $1;
                                    print  “action=”,$var3,”
“;
                                        }
                        }