[KornLee]

现有两个数组a,b
a的内容为:a b c d e
b的内容为:a f c g w e
问题:
1,比较两个数组中都存在的元素?
2,找出a中有而b中没有的?

[KornLee]

我先来吧~~

[/home/javalee/myshell]cat bj
#!/bin/ksh
#
#
set -A arg1 a b c d e
set -A arg2 a f c g w e
echo "数组arg1:"${arg1[*]}"\t":"个数":${#arg1[*]}"\n""数组arg2:"${arg2[*]}"\t":"个数":${#arg2[*]}
for i in ${arg1[*]};do
        for j in ${arg2[*]};do
        echo $i $j
        done
done>a$$
echo "两个数组相同的元素是:"
same=$(awk '$1==$2 {print $1}' a$$)
echo $same
diff=$(awk '$1 != $2 {print $1}' a$$|uniq -d )
echo "数组a中存在而数组b中不存在的元素是:"
echo $same $diff|tr ' ' '\n'|sort|uniq -u|tr '\n' ' '
echo "\n"
rm a$$
[/home/javalee/myshell]bj
数组arg1:a b c d e      :个数:5
数组arg2:a f c g w e    :个数:6
两个数组相同的元素是:
a c e
数组a中存在而数组b中不存在的元素是:
b d


[/home/javalee/myshell]

我的方法效率忒低下:(,希望兄弟们把你们写的帖出来,多多交流!
修改了一下,把生成两个临时文件改成一个啦,(那个多余:(),这样就不用那个tee,我想要比原来的要好些吧~~~

[ravingboy]

版主答案公布的太快了,大家还都没弄呢~~(虽然我不会~~呵呵)

[KornLee]

最初由 ravingboy 发表
版主答案公布的太快了,大家还都没弄呢~~(虽然我不会~~呵呵)

抛砖引玉嘛~~

[seazon]

版主的源码中怎么有中文啊，如果要在shell 中输入，应该怎么做呢？

[KornLee]

最初由 seazon 发表
版主的源码中怎么有中文啊，如果要在shell 中输入，应该怎么做呢？

在X下直接就可以输入的呀,如果是文本模式下就装个zhcon.(我的E文太差所以...)

[seazon]

最初由 javalee 发表
在X下直接就可以输入的呀,如果是文本模式下就装个zhcon.(我的E文太差所以...)

版主啊！既然你提到zhcon，我有个问题，为什么我编译好后，系统会告诉我在某个位置少了几个文件（具体的我已经记不清了），不知道应该怎么解决啊！

[lucida]

我想出来的方法是sort之后写入文件，然后用diff
最后分析diff的结果
可能效率还要低下吧。呵呵

[idkey]

最初由 seazon 发表
版主啊！既然你提到zhcon，我有个问题，为什么我编译好后，系统会告诉我在某个位置少了几个文件（具体的我已经记不清了），不知道应该怎么解决啊！

恐怕是说少库文件吧！？象 libxxx.so.1这样的。如果是，首先确保你已经把文件安装到了正确的位置：用源码编译的话就是最后要以 root 身份执行 make install；其次，要确保更新了库文件记录的 cache：用 root 身份执行 /sbin/ldconfig。这样应该就可以了。

[wanglej]

perl只用几行就够了

[KornLee]

最初由 wanglej 发表
perl只用几行就够了

如方便,贴出来
也好让兄弟们学习,OK?!

[KornLee]

呵呵~~~,有人的话离题啦~~~(玩笑)

再出道题目:
将汉字人名按拼音顺序排序?(a-z)如:
文件aaa有如下内容(任意):
请把 是 而 发 人 个的 要 他 欧是 片 爱 是 的 发 个 没是发发 那 从
排序成:
爱 从 的 而 发 发 个 个的 没是发发 那 欧是 片 请把 人 是 是 他 要

这题我暂时不公布答案啦~~~

[seablue]

#!/usr/bin/perl
@no1=('aa', 'bb', 'cc');
@no2=('de', 'aa', 'ab', 'cd', 'cc', 'dd');
%seen=();
foreach (@no1) {
$seen{$_}=1;
}
@inter=grep($seen{$_}, @no2);
print "Same is: @inter\n";

%seen=();
foreach (@no2) {
$seen{$_}=1;
}
@diff=grep(! $seen{$_}, @no1);
print "@diff\n";

[KornLee]

最初由 seablue 发表
............
print "@diff\n"; [/b]

不错!

[idkey]

哈哈，开始用 perl 了，我也用 python

$ cat comparray.py 
#!/usr/bin/env python
a=('a', 'b', 'c', 'd', 'e')
b=('a', 'f', 'c', 'g', 'w', 'e')
print 'a:', a
print 'b:', b
print '两个数组相同的元素是:'
for i in filter(lambda x: x in a, b):
    print i,
print
print '数组a中存在而数组b中不存在的元素是:'
for i in filter(lambda x: x not in b, a):
    print i,
print
$ chmod +x comparray.py 
$ ./comparray.py 
a: ('a', 'b', 'c', 'd', 'e')
b: ('a', 'f', 'c', 'g', 'w', 'e')
两个数组相同的元素是:
a c e
数组a中存在而数组b中不存在的元素是:
b d