关于PERL读取文件的两个问题请教。

alexru

1. 
   
2. open IN,'$yourfile' or die "$!";
   
3. while(<IN>){
   
4.     $_=~s/$1/newip/  if /<(oldip)>/;
   
5. }
   
6. close IN || die "$!";

复制代码

[ 本帖最后由 alexru 于 2006-10-27 15:06 编辑 ]