作者piglon (TEST123)
看板Perl
标题[问题] 两个档案比对问题
时间Wed Feb 9 15:26:06 2011
想请教一个问题
我想比对两个档案的内容
利用两个回圈去读两个档案
边读边丢到串列
然後做比对
可是却只做一次比对就结束了
这让我困扰很久
感谢回答的先进谢谢
我的程式码如下
use strict;
open(FileHandle, "<1missdo.txt") or die "can't open 1missdo.txt\n";
open(FileHandle1, "<9901.txt") or die "can't open 9901.txt\n";
open(output_1, ">0127output".".txt") or die "can't open 0127output\n";
while (my $line = <FileHandle>){
my @items = split (/ /,$line);
while (my $line1 = <FileHandle1>){
my @items1 = split (/ /,$line1);
if($items[2] =~ /$items1[3]/g){
print output_1 "$items[0] $items[1] $items[2] $items[3]\n";
print output_1 "$items1[7] $items1[22] $items1[3] $items1[17]\n";
}#end of if($items[2] =~ /$items1[3]/g){
}#end of while (my $line = <FileHandle>){
}#end of while (my $line1 = <FileHandle1>){
close(FileHandle);
close(FileHandle1);
close(output_1);
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.126.31.119
1F：推 abliou:大老 排个版吧 02/09 17:00
排版好了
※ 编辑: piglon 来自: 59.126.31.119 (02/09 17:06)