How to count the each element of same index number?
my @a = qw"A B C D E F";
my @b = qw"A B C C";
my $count = 0;
for($i = 0; $i<=scalar @a; $i++){
for($j = 0; $j <= scalar @b; $j++){
if($a[$i] eq $b[$j]){
$count++;
}
}
}
print "Total: $count";
I expect the output is:
Total:3
The output is done by count only the same element of the index key? How can i do it?
There are two potential interpretations to your problem:
A hash is an ideal data structure to test for existance:
use strict;
use warnings;
my @a = qw"A B C D E F";
my @b = qw"A B C C";
my %b = map {$_ => 1} @b;
my $count = scalar grep {$b{$_}} @a;
print "Total: $count";
Outputs:
Total: 3
Additional perldoc reference: How do I compute the difference of two arrays? How do I compute the intersection of two arrays?
If this is your question, then you do not need two loops, just a single iterator.
use strict;
use warnings;
use List::Util qw(min);
my @a = qw"A B C D E F";
my @b = qw"A B C C";
my $count = scalar grep {$a[$_] eq $b[$_]} (0..min($#a, $#b));
print "Total: $count";
Outputs:
Total: 3
@a - $count and @b - $count to get 3 and 1 respectively.
scalar! If assigning to a scalar isn't obviously scalar context, what is.