Finnne IP-adresse i perl-fil.

[rc-halv]

Jeg har et problem, serveren min har en logg, jeg skal finne IP-adressene i den. Jeg skal telle hvor mange ganger hver adresse forekommer. Og skrive ut resultat. Dette må gjøres før de nye brukerene kommer på fredag morgen.

 

Noe av det jeg har laget så langt:

 

foreach (<loggfil>){

$ip=~ \d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/;

print $ip;

}

 

hvor skal $_ puttes inn?

 

Vil si hjertelig takk for all hjelp om dere hjelper meg! All hjelp mottaes, men helst et ferdig skript.

Endret 5. mars 2008 av steinslett

[trtrtr]

her har du et kjapt forslag

 

	use strict;

open IN, "<", "loggfil" or die $!;
my %ipAdrFound = ();
while (my $line = <IN>) {
	#extract ip adr (assuming one ip adr pr line)
	my ($ip) = $line =~ m-(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})-;
	$ipAdrFound{$ip}++;
}

#show ip adr sorted by number of times found
for my $ip ( sort { $ipAdrFound{$b} <=> $ipAdrFound{$a} } keys %ipAdrFound ) {
	printf "IP %-14s Found: %s times\n", $ip, $ipAdrFound{$ip};
}

[rc-halv]

Hjertelig takk, forstod ikke alt, men brukte litt. Hva er for eksempel <IN>?

Endret 6. mars 2008 av steinslett

[rc-halv]

Har nå fått det hele til å virke. Men forstår fortsatt ikke alt.

Det er derimot ett problem, Linjer uten IP-adresser blir også registrert.

 

 

IP Funnet: 10 gang(er) ##(her er den tomme IP-en)

IP 123,123,123 Funnet: 2 gang(er)

IP 9,9,9,9 Funnet: 1 gang(er)

IP 41.42.43.55 Funnet: 1 gang(er)

Endret 6. mars 2008 av steinslett

[trtrtr]

når regex ikke finner noen ip vil variabel $ip være tom (dvs "false"). for å unngå å legge denne verdien inn i hashen kan vi legge inn en sjekk slik:

 

<...resten av kode her...>

 

my ($ip) = $line =~ m-(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})-;

#gå til start av loopen igjen med en gang om $ip er false

next if (!$ip);

 

<...resten av kode her...>

 

IN er bare (valgfritt) navn på et filehandle.

open IN, "<", "loggfil" or die $!;

 

dette er "3 arguments open" (i mots. til gammel 2arg. måte: open IN,"<loggfil") og regnes som mer sikker.

 

anbefaler forøvrig "effective perl" boka om du starter opp med perl. den er genial og gir deg bra skills på få sider. du får den for en hundrings (inkl porto) på amazon (brukt).

[rc-halv]

Hjertelig takk igjen. Brukte goto, da det er lettere å forstå i denne sammenhengen.

[rc-halv]

Alle nye brukere er nå registrert i databasen sammen med de gamle. Alt gikk bra! For nok mye bruk for dette senere!

[Torbjørn]

hmf... goto er spaghettikode

[rc-halv]

Spaghetti er det beste jeg vet.