Re: Required guidance to simplify this program

Use grep and hash method to count the number of occurrence of elements in array as below.

use strict;
use warnings;
use Data::Dumper;

my %count;
my @array = qw(John Sue Larry Mary John Mary Larry John Joe Lisa John 
+Mary);
grep {++$count{$_}} @array;
print Dumper \%count;
[download]

All is well

Comment on Re: Required guidance to simplify this program Download Code

Replies are listed 'Best First'.
Re^2: Required guidance to simplify this program by tobyink (Canon) on Jun 04, 2013 at 06:35 UTC
Using `grep` and `map` in a void context is generally discouraged. A `for` statement modifier is usually clearer, and almost always faster. `use strict; use warnings; use Data::Dumper; my @array = qw(John Sue Larry Mary John Mary Larry John Joe Lisa John +Mary); my %count; $count{$_}++ for @array; print Dumper \%count;` [download] `package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name`	[reply] [d/l] [select]
Re^2: Required guidance to simplify this program by Anonymous Monk on Jun 04, 2013 at 06:12 UTC
Be that as it may, function map can also be used, but their usage i.e map and grep , like this is NOT efficient, because you are throwing away their return values.	[reply]