|
|
|
|
  怎样去掉两个数组间的交集？ - sharkman [ 2005-05-04 03:34 | 119 byte(s)]
Re: 怎样去掉两个数组间的交集？ - Viperii [ 2005-05-04 13:34 | 182 byte(s)]
Re: 怎样去掉两个数组间的交集？ - sharkman [ 2005-05-04 23:50 | 1,023 byte(s)]
Re: 怎样去掉两个数组间的交集？ - jazz [ 2005-05-05 18:21 | 106 byte(s)]
Re: 怎样去掉两个数组间的交集？ - sharkman [ 2005-05-05 19:05 | 6 byte(s)]
Re: 怎样去掉两个数组间的交集？ - sharkman [ 2005-05-06 05:19 | 375 byte(s)]
Re: 怎样去掉两个数组间的交集？ - sharkman [ 2005-05-04 22:05 | 7 byte(s)]
|
|
|
|
[Original]
[Print]
[Top]
|
比如
%a是1,2,3,4,5
%b是1,2,3,4,5,6,7,8,9,0
我想弄个%c是6,7,8,9,0
请问怎么写比较好？
|
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
my @a = (1..5);
my @b = (0..9);
my %seen;
@seen {@b} = ();
delete @seen {@a};
my @c = keys %seen;
|
|
|
----
Where is the RED pill? I want OUT!
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
稍微有问题：
#!usr/bin/perl
$readfile1 = "list1.txt";
$readfile2 = "list2.txt";
$writefile = "writefile.txt";
if (open (readfile1,"$readfile1")|| die ("can't open readfile1!")) {
@line1 = <readfile1>;
}
if (open (readfile2,"$readfile2")|| die ("can't open readfile2!")) {
@line2 = <readfile2>;
}
print @line2[1];
%seen;
@seen {@line2} = ();
delete @seen {@line1};
@writeline = keys %seen;
if (open (writefile,">$writefile") ||die ("can't open writefile!")) {
chomp @writeline;
print writefile ("@writeline
");
}
换行有点问题。怎样能输出数组的一个元素就换一行？
|
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
再问一下，如果是两个文件，1.txt和2.txt，在去除同样行的基础上，还要去除一些，不太好描述，是说1.txt是：
1
2
3
4
5
6
7
2.txt是:
3
5
7
9
20
要去除3,5,7,9，剩下1,2,4,6,20
怎么写比较好？
|
|
|
[Original]
[Print]
[Top]
|
|
|
声明: 本页内容为中国Linux论坛的内容镜像，文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者，如果转载，请注明文章来源及相关版权信息。