求一脚本（判断一个数组的元素是否存在于另一个数组之内）

gis11rj

@a = (1,2,47,36,5);
@b = (1,2,3,4 45 56 36 47,5,6,7,8,9);
怎么写一个脚本，用来判断数组a中的元素在数组b中
谢谢各路大侠

ludio333

use Array:iff ;

gis11rj

回复 2# ludio333


    可以把数组a先建一个哈西，取键值，然后在遍历数组a的键值，for循环数组b，比较得出吗？

ziyunfei

1. @c{@b}=1;
   
2. print map {exists($c{$_})?"存在\n":"不存在\n"} @a

复制代码

Perlvim

use 5.014;

foreach my $element (@a) {
    say "$element include in \@b" if ($element ~~ @b);
}

yinyuemi

print map{!$hash{$_}++?"":"$_ in \@b\n"} @b,@a

gis11rj

use 5.014;

if ($element ~~ @b);

Perlvim 发表于 2011-11-30 00:13

    就这样 "~~" ,就可以判断$element 在不在@b里？？？？

Perlvim

智能匹配操作符，从 5.010 就有了，功能强大。

ludio333

智能匹配可以

模块也有
    my @old = ( 'a', 'b', 'c' );
    my @new = ( 'b', 'c', 'd' );
   
    my $diff = Array:iff->diff( \@old, \@new );
   
    $diff->count   # 2
    $diff->added   # [ 'd' ];
    $diff->deleted # [ 'a' ];