一個關(guān)于多個文件內(nèi)容修改得問題，請大家?guī)兔?/a>

ludio333

實際應用是需要修改某個目錄的每個文件，過去是把文件復制一份，生成.bak，然后讀取備份文件覆蓋源文件，現(xiàn)在的需求是讀的時候直接寫文件
使用IO::File +< file結(jié)果不對
大家有什么好方法嗎?
還有想請教
$fh->autoflush(1)和$|=1是一個作用嗎？
謝謝大家
下面有個簡單的例子
file內(nèi)容就是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;