Perl verrohrt nur Log-Skript alle 2 Treffer läuft

Question

ich dieses Skript in Apache für eine verrohrt Log-Setup bin mit 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");} 
} 

I in der Richtlinie% f sende es den Dateinamen zu geben. Wie Sie sehen können, überprüft es, ob der angeforderte Dateiname eine Inhaltsdatei ist. Wenn dies der Fall ist, gibt es dem System einen Signalton. Aus irgendeinem Grund piept der Server jedoch nur alle zwei Male, wenn auf eine Inhaltsseite zugegriffen wird. Weiß jemand, warum das passieren könnte?

Ich bin mir ziemlich sicher, dass es mit der Art, wie ich <STDIN> benutze, zu tun hat, weil dies mein erstes Perl-Skript ist.

Answer 1

Sie lesen die erste Zeile mit der while(), dann lesen Sie eine andere in der if().

Ändern Sie den 'wenn' zu: if ($ _ = ~ ...)

Answer 2

Versuchen:

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