On Mon, Jul 20, 2015 at 6:19 AM, Vincent Lequertier <s...@riseup.net> wrote: > Thank you for the help, Charles! Unfortunately, I'm not able to figure out > how to access the element of %ordered, despite some diggings in the perldoc > (http://perldoc.perl.org/perldsc.html). > I can print a single element with print > $ordered{'xxx.xxx.xxx.xxx'}[0]{'[15/Jul/2015:10:30:03 +0200]'}{action}; > > But I don't find how to get the dates e.g. '[15/Jul/2015:10:30:03 +0200]' > > Here is what I've tried: > > tie( my %ordered, 'Tie::IxHash', map { ( $_,[ ] ) } @ip ); > > while ( my($key,$value) = each %hash ) { > push @{$ordered{$value->{ip}}}, {$key, $value}; > } > #print Dumper \%ordered; > my $i = 1; > for my $key (keys %ordered) { > print "ip number $i : $key\n"; > for my $entry (@{$ordered{$key}}) { > print $entry . "\n"; > } > ++$i; > } >
Depending on output preference and level of detail, one possibility: ... for foreach my $entry ( @{$ordered{$ip}} ) { while ( my($date, $data) = each %{$entry} ) { say join( " ","$date:", $data->{ip}, $data->{action} ); } } -- Charles DeRykus -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/