Re^3: Counting Data in two columns?

[neniro]

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;

[sdslrn123]

Thank You. But is grep an unix command? Unfortunately, I do not use Unix?

[neniro]

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