Re: Counting the Times Two Unknown Values Appear Together

I think maybe you want this:

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

Then you can say something like...

foreach my $src ( keys %hash ) {
    foreach my $sport ( keys %{$hash{$src}} ) {
        printf "%s appears with %s %d times\n",
               $src, $sport, $hash{$src}{$sport};
    }
}
[download]

Or just use something like Data::Dumper or YAML to spew out the whole structure.

Comment on Re: Counting the Times Two Unknown Values Appear Together Select or Download Code

Replies are listed 'Best First'.
Re^2: Counting the Times Two Unknown Values Appear Together by jdporter (Paladin) on Jul 16, 2007 at 02:36 UTC
I'd simplify it a bit further: `my %count; while (<FILE>) { my( $src, $sport ) = (split /;/)[9,12]; $count{$src,$sport}++; # magic $; } for my $pair ( sort keys %count ) { print "($pair) occurred on a line together $count{$pair} times\n"; # if you need the two parts: # my( $src, $sport ) = split $;, $pair; }` [download] In fact, I'd extend it to any number of fields: `my @fields = ( 9, 12 ); my %count; while (<FILE>) { chomp; $count{ (split /;/)[@fields] }++; } for ( sort keys %count ) { print "($_) occurred on a line together $count{$_} times\n"; # if you need the parts: # my @vec = split $;; }` [download]	[reply] [d/l] [select]
Re^2: Counting the Times Two Unknown Values Appear Together by Dru (Hermit) on Jul 16, 2007 at 13:53 UTC
Cool, this is what I went with and it does exactly what I want, thanks! P.S. I looked at your home node and saw "Other monks I've met in person:" line and when I first read it, I thought it said "Other monks I've met in prison!!" P.P.S. Thanks to the other monks for their responses as well. Thanks, Dru Perl, the Leatherman of Programming languages. - qazwart	[reply] [d/l]


Welcome to the Monastery
	PerlMonks