Help for this page
my (@commands,@matches,$ip); for (my $i=0; $i < @temp; $i++){ #process each subset ... $$DATA{$ip}->{commands} = \@commands; $$DATA{$ip}->{matches} = \@matches;
my ( @commands, @matches, $ip ); for my $i ( 0 .. $#temp ) { #process each subset ... $$DATA->{ $ip }{ commands } = \@commands; $$DATA->{ $ip }{ matches } = \@matches;