http://www.perlmonks.org?node_id=626680

Dru has asked for the wisdom of the Perl Monks concerning the following question:

Monks,

I am trying to count the number of times an unknown value appears on the same line as another unknown value. When I say "unknown" I mean I do not know beforehand what the value will be, so I can't match it using a regex or something, but I do know the position of these values on the line.

I created a hash reference (I believe this is what this data type is called) that saves the data that I want, but haven't been able to figure out the counting piece.

Referring to my snippet of code below, I would like to count the number of times $sport appears on the same line as $src in a file

The file is rather large, so I would prefer not to process it twice.

while (<FILE>){ my ($src,$sport) = (split /;/)[9,12]; $hash{$src}={sport => $sport}; }
Thanks,
Dru

Perl, the Leatherman of Programming languages. - qazwart