Re^4: Search in array from match in another array, print once only.

in reply to Re^3: Search in array from match in another array, print once only.
in thread Search in array from match in another array, print once only.

just try this one

#!C:\Perl64\bin -w
use strict;
my @array =
    (
    "54321" ,
    "54312" ,
    "5999" ,
    "54352" ,
    "12345"
    );
my @original =
    (
    "12345" ,
    "54321" ,
    "12355"
    );
my $hash={};
foreach my $val(@original){
    if (grep{$_ == $val} @array){
        $hash->{$val}++;
    }##end if
    else {
        print "$val NOT MATCHED\n";
    }##end else
}##end foreach
foreach (keys(%{$hash})){
    print "$_ matched $hash->{$_} times\n";
}##end foreach
[download]

Comment on Re^4: Search in array from match in another array, print once only. Download Code

In Section Seekers of Perl Wisdom