Hvornår var sidste hit - 2

* Ide:

- Husk sidste hit fra dette IP-nr

- Hvis der var et forrige hit: udskriv den.

while(<>) {

/(\S+)\s+[^[]*(\[[^]]*\])/ or die;

# $client=$1;

# $time=$2;

chomp;

print $_, " ", ($last{$1}||"-"),"\n";

$last{$1}=$2;

}

perl -pe 'chomp;/(\S+)\s+[^[]*(\[[^]]*\])/;$_.=" "

.($last{$1}||"-")."\n";$last{$1}=$2' access_log