作者reizarc (零式札克)
看板perl
标题Re: [问题] 请问使用档案比对时?
时间Sun Mar 11 15:02:17 2007
※ 引述《david220 (连做梦都在微笑)》之铭言：
: 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;
... 超懒人作法
全部丢给 regexp >w<;
open( F2, "<./2" ); # read patterns
$pat = '('. join( '|', map{ chomp; $_; }<F2> ). ')';
close( F2 );
open( F1, "<./1" ); # compare and replace
grep{ print( $`, '<NP>', $' ) if( /$pat/ ); }<F1>;
close( F1 );
但是这样档案大起来效率一定超烂 XD
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.216.174.26
※ 编辑: reizarc 来自: 61.216.174.26 (03/11 15:04)
1F：→ Yaowei:先感谢大家 小弟好好研究一下^^ 03/11 18:14