in reply to How to extract from the array...exemple txt file:

Okay, here is something I whipped up. Because I see a ",D" at the end of the first line, I added a bit to the regex I used... You may have to edit the regex depending what the entire line looks like.

#!c:/perl/bin/perl -w use strict; #Declare variables use vars qw(%hash $key $value); #Open the file with data in it open FILE, "info.log"; #Create a hash of hashes of companies/files while (<FILE>) { $hash{$4}{$5}++ while (/(.*?),(.*?),(.*?),(.*?),(.*?),(.*?)+/g); } #Show the results foreach my $company (keys %hash) { print "Company: $company\n"; print "\t$key accessed $value times.\n" while (($key,$value) = ea +ch %{$hash{$company}}); print "\n"; }

Update: If you hate regexes (or simply to be safer), you could always split. This would replace the one while loop with:

while (<FILE>) { my @a = split /,/; $hash{$a[3]}{$a[4]}++; }