Du har glömt <> runt LOG i while ($logline = <LOG>) { och måsvingen i $logline =~ /^([.0-9]+)/;
Sen kan du kolla så att du har läsrättigheter till loggfilen och att IP't ligger först på varje rad.
Frågan#1
Jag håller på att försöka skapa ett perl-skript som ska hämta ip-nummer från logfilen till Apache.
Den ska också filtrera bort de älsta ip-numren ifall samma ip dyker upp flera gånger i rad.
Men som det ser ut nu så skriver den inte ut ett smack, det händer ingenting när jag kör programmet.
Nån som ser vad problemet ligger?
#!/usr/bin/perl
open (LOG, "/usr/local/apache/log/access_log");
while ($logline = LOG) {
$logline = /^(\[.0-9\]+)/;
$ip = $1;
if ($ip != $previp) {
print "$ip\\n";
}
$previp = $ip;
}
close (LOG);
exit;