作者adu (^_^)
看板Perl
标题[问题] 两个档案比对的问题
时间Fri Feb 27 09:54:44 2009
写好的指令在执行的时候出现了一些问题，找不到问题在哪边，所以上来请问版大..
要比对两个档案间有没有相同的数字，如果有就印出来。
当file1:
10091
10122
10220
10221
file2:
65444
11000
11009
11020
10220
时，可以比对出10220
更改file资料的时候，却会出问题！
file1:
10091
10122
10220
10221
10258
10276
10278
10300
10469
file2:
17083
1
12242
15629
153
10113
11020
10220
比对到
10091*
10220
10221*
这两个不知哪来的！
指令：
open file1 ,"<TEST.tab";
while($line1=<file1>){
open file2 ,"<TEST2.tab";
while($line2=<file2>){
if (($line1) =~ ($line2)){
print $line1;
}
}close file2;
}
close file1;
谢谢版大指教Orz
PS:如果把$line2变成@line2，会变成不同的输出，但是还是比对不到想要的Orz
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.25.86
※ 编辑: adu 来自: 140.116.25.86 (02/27 09:59)