Re: Count of words that match in an array

my @Array1 = qw( A B C D );
my @Array2 = qw( J C T A );

my $count=0;

for ( @Array1 )
{
    $count++ if $_ ~~ @Array2;
}

print "Count = $count\n";
[download]

Comment on Re: Count of words that match in an array Download Code

Replies are listed 'Best First'.
Re: Answer: Count of words that match in an array by kcott (Archbishop) on Jan 15, 2014 at 09:29 UTC
It should be noted that '`~~`', the Smartmatch Operator, is experimental: see "perl5180delta: The smartmatch family of features are now experimental". I haven't investigated whether it makes a difference with this specific usage; however, it may be worth checking this (from "perlop: Smartmatch Operator"): "First available in Perl 5.10.1 (the 5.10.0 version behaved differently), ..." -- Ken	[reply] [d/l]