请假数组的比较

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

11^# forlorngenius 发表于 2008-08-30 19:09

方法比较多

huifeideluotuo

UID: 17624
帖子: 1
积分: 2
在线时间: 10 分钟

12^# huifeideluotuo 发表于 2008-08-31 07:18

QUOTE:

原帖由爱知于 2008-8-30 16:12 发表
天天有这样的小问题，好入门，好练手
虽然其中一些代码看不懂，但也学习了
这样的问题，用shell 解决要难一点，用perl 解决来的容易
恨不得现在就与大家交流代码，但心有余而力不足，加快学习步骤！
:mrgre ...

这位兄弟说的很好，这样有些脚本实例，才能慢慢理解perl的用处，才能更好的学习perl代码。

027xiatian

UID: 45056
帖子: 158
积分: 363
在线时间: 1 天 10 小时

13^# 027xiatian 发表于 2008-08-31 15:17

没有想到更好的，
#!/usr/bin/perl -w
use strict;
my @a=("a","test","2343","fsdf","kkkk");
my @b=("23","kkkk","abcd","12ab","aha","a","a");

print "a 中有 b中没有的:\n";
&cmp(\@a,\@b);
print "b 中有 a 中没有的:\n";
&cmp(\@b,\@a);

sub cmp
{
      my ($A,$B)=@_;
      foreach my $element (@{$A}){
            if(! (grep /^$element$/,@{$B})){
                     print "$element\n";
            }

      }
}

蓝茅肉丝

UID: 41439
帖子: 76
积分: 174
在线时间: 8 小时

14^# 蓝茅肉丝发表于 2008-09-10 21:40

多谢各位大虾，本人菜鸟，能对上面的代码再解释一下吗，谢谢了