comment on

A hash of hash might be a possible solution. Here I didn't keep a separate frequency but generated a frequency for each $tag1 as the value to the hash.

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper qw(Dumper);
use List::Util 'sum';

open my $fh, '<', \<<EOF;
The    DT    the
International    NN    International
for    IN    for
well    NN    well
preparation    NN    preparation
preparation    NN    preparation
in    IN    in
conference    NN    conference
conference    NN    conference
conferences    NN    conference
good    VVG    good
EOF

my %hash;
while (<$fh>) {
    chomp;
    my ($tag1, $tag2, $tag3) = split /\t/;
    
    if ($tag2 =~/NN/) {
        $hash{$tag3}{$tag1}++;
    }
}
print Dumper \%hash;

for my $tag (keys %hash) {
    printf "%s freq: %d\n", $tag, sum values %{ $hash{$tag} };    
}
[download]

Output:

$VAR1 = {
          'well' => {
                      'well' => 1
                    },
          'International' => {
                               'International' => 1
                             },
          'conference' => {
                            'conference' => 2,
                            'conferences' => 1
                          },
          'preparation' => {
                             'preparation' => 2
                           }
        };

well freq: 1
International freq: 1
conference freq: 3
preparation freq: 2
[download]

In reply to Re: multi dimensional hash by Cristoforo
in thread multi dimensional hash by Anonymous Monk

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Your skill will accomplish what the force of many cannot
	PerlMonks