轉換bash行以在perl中使用

Question

我如何將以下bash行轉換為perl？ 我可以運行system（）命令，還是有更好的方法？ 我正在尋找perl，以便每天從我的apache access_log文件中打印出訪問權限。

在bash中：

awk '{print $4}' /etc/httpd/logs/access_log | cut -d: -f1 | uniq -c

打印以下內容：

632 [27/Apr/2014
156 [28/Apr/2014

Answer 1

awk '{print $4}' /etc/httpd/logs/access_log | cut -d: -f1 | uniq -c

perl -lane'
    ($val) = split /:/, $F[3];      # First colon-separated elem of the 4th field
    ++$c{$val};                     # Increment number of occurrences of val
    END { print for map { "$c{$_} $_" } keys %c }  # Print results in no order
' access.log

開關：

• -l自動將換行符附加到print語句。
• -l還從-n （和-p ）讀取的行中刪除換行符。
• -a將空白行分割為數組@F 。
• -n循環輸入的行，但不打印每行。
• -e執行給定的腳本主體。

Answer 2

您的原始命令已翻譯為Perl一線式：

perl -lane '($k) = $F[3] =~ /^(.*?):/; $h{$k}++ }{ print "$h{$_}\t$_" for keys %h' /etc/httpd/logs/access_log

Answer 3

您可以從以下位置將所有命令更改為一個：

awk '{print $4}' /etc/httpd/logs/access_log | cut -d: -f1 | uniq -c

至

awk '{split($4,a,":");b[a[1]]++} END {for (i in b) print b[i],i}' /etc/httpd/logs/access_log