Perlは私だけでは、Apache 2のパイプされたログ・セットアップのために、このスクリプトを使用していますすべての2安打

Question

を実行しているログスクリプトをパイプ：

#!/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を送っています。確認できるように、要求されたファイル名がコンテンツファイルであるかどうかを確認します。そうであれば、ビープ音が鳴るようにシステムに指示します。ただし何らかの理由で、コンテンツページにアクセスする2回ごとにビープ音が鳴ります。誰がなぜこれが起こるのか知っていますか？

これは私の最初のPerlスクリプトなので、<STDIN>を使用している方法とはかなり関係があります。

Answer 1

while（）で最初の行を読み、if（）で別の行を読み込みます。

変更]の場合」にします。if（$ _ =〜...）

Answer 2

試してみてください。

while (<>) { 
    system("beep") if /php|pl.../; 
}