作者david220 (连做梦都在微笑)
看板perl
标题Re: [问题] 请问使用档案比对时?
时间Sun Mar 11 14:32:25 2007
open(IF, "patterns.txt") or die "cannot open: $!";
chomp(@patterns = <IF>);
close IF;
open(IF, "data.txt") or die "cannot open: $!";
map {$line = $_; print $line if(grep {$line =~ s/$_/<NP>/} @patterns);} <IF>;
close IF;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.29.131
参考下面改的 囧rz
open(IF, "patterns.txt") or die "cannot open: $!";
$pattern = join('|', map { chomp; $_; } <IF>);
close IF;
open(IF, "data.txt") or die "cannot open: $!";
print grep { s/$pattern/<NP>/g } <IF>;
close IF;
※ 编辑: david220 来自: 140.112.29.131 (03/11 17:06)
1F：→ Yaowei:先感谢大家 小弟好好研究一下^^ 03/11 18:14