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

gis11rj

这种小问题问我就行了嘛！
而且，最适合给幼儿园小盆友讲题目的是小学生..
for(@b){
    $hash{$_} = un ...
芙蓉女侠 发表于 2011-11-30 11:06

小朋友有点不太明白啊。。。。
@b里有用空格分割的，直接for（@b），不会影响结果吗？
而且我要提取不存在的，呵呵

afukada

1. @a=(1,2,47,36,5);
   
2. @b=(1,2,3,"4 45 56 36 47",5,6,7,8,9);
   
3. 
   
4. %c=map{$_=>1}@a;
   
5. 
   
6. foreach(@b)
   
7. {
   
8.         @d=split;
   
9.         push(@out,grep{exists($c{$_})}@d);
   
10. }
    
11. 
    
12. print join(",",@out),"\n";

复制代码

這樣試試

perlming

回复7楼，

smart matching
Any     Array     match against an array element[3]
                                               grep $a ~~ $_, @$b

gis11rj

回复 4# ziyunfei
#perl -w


my $allUnexist = "/home/test/allUnexist.csv";
my $old = "/home/test/a.csv";
my $new = "/home/test/b.csv";

my @a = loadContainTitle($old);
my @b = loadContainTitle($new);
my %a2b = map{$_,1}@b;
open T ,">$allUnexist";
foreach my $element (@a){
        if (not $a2b{$element}){
                print T $element . "\n";
        }
}
close T;  
注：loadContainTitle为正确的子程序
请问我这个小程序有什么问题吗？

benjamin-xu

Perlvim 发表于 2011-11-30 00:13
use 5.014;

foreach my $element (@a) {

很高明，学习啦...