ile1
Beckham
Ronaldo
file2
Beckham Beckham_human
Ronaldo Ronaldo_spain
Ronaldo Ronaldo_brazil
Beckham Beckham_manch
Zidane Zidane_Fran
Rooney Rooney_Eng
Output shud be
Beckham 2
Ronaldo 2
!usr|bin|perl -w
open(FILE1,"file1");
@array1=<FILE1>;
open(FILE2,"file2");
@array2=<FILE2>;
close(FILE1);
close(FILE2);
foreach $code(@array1)
{
foreach $line(@array2)
{
chomp($code);
@array2 =~ /$code/;
$x += @array2;
}
}
print "$x\n";