Re^3: Counting Data in two columns?

in reply to Re^2: Counting Data in two columns?
in thread Counting Data in two columns?

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %hoa = (
    flintstones        => [ "fred", "barney" ],
    jetsons            => [ "fred", "jane", "elroy" ],
    simpsons           => [ "homer", "marge", "bart" ],
);

my @freds = grep { $hoa{$_}->[0] eq 'fred' } sort keys %hoa;

print Dumper \@freds;
[download]

Comment on Re^3: Counting Data in two columns? Download Code

Replies are listed 'Best First'.
Re^4: Counting Data in two columns? by sdslrn123 (Novice) on Jun 16, 2006 at 21:51 UTC
Thank You. But is grep an unix command? Unfortunately, I do not use Unix?	[reply]
Re^5: Counting Data in two columns? by neniro (Priest) on Jun 16, 2006 at 22:15 UTC
But is grep an unix command? Unfortunately, I do not use Unix? perl has its own build-in grep, that is independent to your OS. http://perldoc.perl.org/functions/grep.html	[reply]

In Section Seekers of Perl Wisdom