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

yuguanglou

新手请教：
WINDOWS 下想通过PERL读取一个配置文件模板，然后将里面类似<my-ip>格式的很多变量替换，
config.ini
install=nfs://<my-ip>/sles8 mac=<client-mac> 。。。
这样的替换为
install=nfs://192.168.0.1/sles8 mac=00adf298890c 。。。
然后保存为一个新的文件 myconfig.ini。

LINUX下很好实现的，通过SHELL就搞定了，到WINDOWS下就只有用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 编辑 ]

Namelessxp

1. 
   
2. #!/bin/perl
   
3. $/ = undef;
   
4. my $c = <>;
   
5. $c  =~ s/<my\-ip>/192.168.0.1/igs;
   
6. print $c;
   
7. exit;
   

复制代码

perl xx.pl config.ini> myconfig.ini