Richtig IPs parsen (solved) - #157683 (Allgemeines zu Perl)

topeg

2012-04-20 09:31

User since
2006-07-10
2611 articles
BenutzerIn

user image

In dem Array sind Anonyme Hashes (eine Referenz auf einen Hash der ohne Namen ist). Ein Hashentry besteht aus einem Hashkey und einem Hashvalue.

Beispiele:

Code (perl): (dl )

# IP-Adressen:
my %unique_ips;
$unique_ips{$_->{ip}}++ for(@data);

print Dumper(\%unique_ips);

# Art der Zugriffe
my %accesstypes;
for my $entry (@data)
{ $accesstypes{$1}++ if($entry->{request}=~/^(\w+)\s/); }

print Dumper(\%accesstypes);

# Zugriffe pro Datei:
my %files;
for my $entry (@data)
{
  my $req=$entry->{request};

  if($req=~/^\w+\s+(.+$)\s+HTTP.+?$/)
  { $files{$1}++ }
}

print Dumper(\%files);