[PerlChina] 请教, 这样是不是多个关键字在文件中替换的最优方法?

这样是不是文件多个关键字替换的最佳方法

sub replaceInFile{
print "Process File:".$_[0]."\n";
undef $/;
open TARGET_FILE,$_[0];
$C = <TARGET_FILE>;
close TARGET_FILE;
$/="\n";

$count=0;
while($count<scalar(@keyword)){
$_=$C;
$C =~ s/@keyword[$count]/@replacekeyword[$count]/gi;
$count++;
}

open( FILE, ">$_[0]");
print FILE $C;
close(FILE);
}
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---