[PerlChina] 文件描述符如何同时读写( 以不使用<>的方式更新文件 )

owen nirvana freeespeech at gmail.com
Sun Dec 7 03:06:03 PST 2008


我想批量替换某些文件的内容,按照learning perl 的方法可以从命令行读入,但是这种情况似乎并不适用于目录嵌套的情况,

# from learning perl
$^I = ".bak"
while (<>) {
s/A/B/;
print;
}

#my code


$^I = '';
if ( $filename =~ /AAA/i  ) {
open FILE, "<", $filename or die "bla bla bla...";
while (<FILE>) {
  s/A/B/;
 print;
}
}



这样还是仅仅打印到STDOUT了,该如何解决,谢谢

注:文件分布于个子目录之下,我是用File::Find遍历查找的,这样的话就只可以使用<FILE>了,为了更灵活一些,我也觉得把一切筛选工作让命令行来解决并不太合适
gtalk:freeespeech at gmail.com


More information about the China-pm mailing list