作者imce (蜥蜴)
看板perl
标题Re: [问题] 请问使用档案比对时?
时间Sun Mar 11 13:56:52 2007
太久没写了,写玩好想睡=.=
============================================================
open(FILE,"a.txt");@A=<FILE>;close(FILE);#a是五行的档案
open(FILE,"b.txt");@B=<FILE>;close(FILE);#b是三行那个
foreach $line (@B)
{
chomp($line);
$_ =~ s/$line/<NP>/g for (@array = grep(/$line/,@A) );
print @array;
}
=============================================================
结果我还是用了两个for回圈,应该是可以少用一个的,等我问问周公在来改
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.15.18
1F：→ Yaowei:先感谢大家 小弟好好研究一下^^ 03/11 18:13