Perl 管道日志脚本仅每 2 次点击运行一次

Question

我正在使用此脚本在 Apache 2 中设置管道日志:

#!/usr/local/bin/perl

$|=1; # Use unbuffered output
while (<STDIN>)
{
   if (<STDIN> =~ m/(.php|.html|.htm|.dhtml|.cpp|.h|.c|.txt|.pdf|.pl)$/)
      {system("beep");}
}

我在指令 %f 中发送文件名。如您所知，它会检查请求的文件名是否是内容文件。如果是这样，它会告诉系统发出哔哔声。然而，出于某种原因，服务器每两次访问内容页面时才会发出哔哔声。有谁知道为什么会发生这种情况？

我很确定这与我使用 <STDIN> 的方式有关，因为这是我的第一个 Perl 脚本。

Answer 1

您使用 while() 读取第一行，然后在 if() 中读取另一行。

将“if”更改为:if($_ =~ ...)