#!/usr/bin/perl -naF/,/
$seen{$F[3]}->{$F[4]}++ if defined $F[3] and defined $F[4];
END { while(($k,$v) = each %seen) { print "$k has accessed $k2 $v2 tim
+es.\n" while ($k2,$v2) = each %$v } }
[download]

#!/usr/bin/perl -naF/,/
$seen{"@F[4,3]"}++;END{@u;print"@u has accessed $s $t times.\n"while($
+_,$t)=each%seen,($s,@u)=split}
[download]

Lol, just a little hint on how to use this one.
(You know, for those not as smart like me):

script.pl info.dat OR perl -naF/,/ script.pl info.dat

where script.pl => Name of The Script
where info.dat => Name of File Containing Data

The second way of executing the script in required on Win32 machines :)

Much as this smacks of a piece of University homework, I have made a solution anyway ;)

I came up with a rather cheeky solution to this. As it is possible for a company to access different files, the data structure warranted being a hash (of company names) against references another hash (of file names) for each company. However, this is a lot of effort.

I opted for forming a key to a single hash out of a company name and file name (separated by a comma) and keeping a count to the occurence of each of these. Then having read the data file, when the time came to output the results, I split the hash-key on the comma to give two separate scalars...

use strict;

# Declare vars
my @columns = ();
my %hash = ();
my $key = "";

# Open data file
open INFILE, "data.tmp";

# Process file line by line
while (<INFILE>) {

    # Split on comma delimiters
    @columns = split(/,/, $_);
    
    # Store a number in a hash 
    $key = $columns[3] . "," . $columns[4];
    if (defined($hash{$key})) {
        $hash{$key} = $hash{$key} + 1;    
    } else {
        $hash{$key} = 1;
    }
}

# Output the hash
foreach $key (keys %hash) {

    @columns = split(/,/, $key);
    print "$columns[0] has accessed $columns[1] $hash{$key} time(s).\n
+";
}
[download]

This code expects the data provided in the question to be in the file data.tmp in the same dir as the script. It produces the following output as req'd:

The Company Inc. has accessed pw_p1 1 time(s).
MIT has accessed pw_p1 2 time(s).
My Agency Inc. has accessed pw_p1 1 time(s).
My Agency Inc. has accessed pw_p2 1 time(s).
[download]

Once again, I hope I haven't done ur homework for you! Arun

Isn't this a good place for a hash of hashes (HoH)?

Christopher E. Stith
use coffee;

#!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";
}
[download]

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]}++;
}
[download]

Hmmmm Homework?

I would suggest taking a look at split and hashing for this example

Originally posted as a Categorized Answer.

Originally posted as a Categorized Answer.