我有网络日志文件,我遇到了很多麻烦,因为我是 perl 的新手。我只需要一个脚本来查找找到的每个图像的计数。我能够列出它们,但我不确定如何计算,比如“查看了 x jpg 和 x gif”。
到目前为止,我的代码如下所示:
use warnings;
open FILE, "jan28.log";
while ($line = <FILE>) {
if ($line =~ /.jpg/) {
print $line;
}
elsif ($line =~ /.gif/) {
print $line;
}
elsif ($line =~ /tiff/) {
print $line;
}
}
Web 日志如下所示。
24.131.83.162 - - [28/Jan/2007:00:00:00 -0500] "GET /~taler/images/index_09.jpg HTTP/1.1" 200 1563
207.46.98.53 - - [28/Jan/2007:00:00:04 -0500] "GET /%7Edist/programs/PhD/PhDGuide/guideA.htm HTTP/1.0" 200 19090
74.6.74.184 - - [28/Jan/2007:00:00:12 -0500] "GET /%7Embsclass/hall_of_fame/myicon.ico HTTP/1.0" 200 760
58.68.24.3 - - [28/Jan/2007:00:00:16 -0500] "GET /~dtipper/tipper.html HTTP/1.1" 200 5896
58.68.24.3 - - [28/Jan/2007:00:00:16 -0500] "GET /~dtipper/gifs/head.jpg HTTP/1.1" 200 18318