一个关于多个文件内容修改得问题，请大家帮忙

ludio333

实际应用是需要修改某个目录的每个文件，过去是把文件复制一份，生成.bak，然后读取备份文件覆盖源文件，现在的需求是读的时候直接写文件
使用IO::File +< file结果不对
大家有什么好方法吗?
还有想请教
$fh->autoflush(1)和$|=1是一个作用吗？
谢谢大家
下面有个简单的例子
file内容就是cat /etc/hosts > file
只是做个测试

#!/usr/bin/env perl
use strict;
use warnings;
use IO::File;

my  $fh = new IO::File "< file";
           if (defined $fh) {
               while (<$fh>){
s/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/192.168.0.0/g;
print ;
}
}

ludio333

使用$^I=""
while(<>)可以修改

不过应该还有别的办法啊
有人知道吗
？

Kitaisky

# Asking for trouble w/o .bak

perl -i.bak -pe 's/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/192.168.0.0/g' /path/to/files/*

ludio333

查到之前有人遇到过这个问题
可以用这个模块解决
http://search.cpan.org/~mjd/Tie-File-0.96/lib/Tie/File.pm
use Tie::File;
        my $file = "file";
        my @array;
        tie @array, 'Tie::File', $file or die "$!\n";
        for (@array) {
        my $ip = $1 if /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;
        s/$ip/192.168.0.20/g if $ip;
        }
        untie @array;