in reply to Code requested for array intersection count
And just to do it one more different way :)
GreetZ!,
print "profeth still\n" if /bird|devil/;
#!/usr/bin/perl -w use strict; my @array_1 = qw/A B X/; my @array_2 = qw/A B C D A D B A C/; my %Seen; ++$Seen{$_} for @array_2; print "$_ : ",exists $Seen{$_}||0,"\n" for @array_1
GreetZ!,
- ChOas
print "profeth still\n" if /bird|devil/;
|
---|
In Section
Seekers of Perl Wisdom