小编Pin*_*ink的帖子

请考虑下面的脚本,即使$ b是部分匹配,我也要将$ b与$ a匹配.可以这样做吗？

$a="MCF-7";
$b="MCF";
if($b=~m/$a/i)
{
    print "FOUND";
}

谁能告诉我如何将数组的重复元素推送到新数组？这就是我现在所拥有的,我想再次将重复元素保留到一个新数组中.

%seen = ();
@uniq = ();
foreach $item (@list) {
    unless ($seen{$item}) {
        $seen{$item} = 1;
        push(@uniq, $item);
    }
}
print "@unique\n";