---
title: "läsa loggen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/41771-läsa-loggen"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "reka1"
published: "2002-04-16T10:40:31.000Z"
updated: "2002-04-16T20:14:15.000Z"
replies: 3
views: 230
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/perl-ruby/41771-läsa-loggen"
---

# läsa loggen

## #1 — reka1, 2002-04-16T10:40Z

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;

Permalänk: https://www.webforum.nu/p/41771

## #2 — Jojoxx, 2002-04-16T17:04Z

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.

Permalänk: https://www.webforum.nu/p/647379

## #3 — reka1, 2002-04-16T18:36Z

Tackar för svar! Dessvärre blev det ingen skillnad efter dina förändringar. 

Och logfilen har 777 nu under utvecklingsfasen o den är inte tom.

Som sagt så ska man se vilket ip-nummer som läst webbplatsen samt det datum det skett. Om flera anrop till sidan skett vid samma tidpunkt från samma ip-nummer ska bara det första anropet visas i sammanställningen.

Permalänk: https://www.webforum.nu/p/647435

## #4 — Jojoxx, 2002-04-16T20:14Z

Har du konfigurerat Apache så att ip't ligger först i varje rad? "^" i ditt regexp talar om detta. Sen bör du byta ut "!=" (numerically not equal" till "ne" (stringwise not equal). Annars fungerar din kod när jag kör den.

Permalänk: https://www.webforum.nu/p/647577

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/41771-läsa-loggen