如何用Perl替換文件中的完整IP地址？

Question

我用下面的Perl語法，以替換字符串或IP地址的文件：問題

OLD=aaa.bbb.ccc.ddd (old IP address) 
NEW=yyy.zzz.www.qqq (new IP address) 

export OLD 
export NEW 

perl -pe 'next if /^ *#/; s/\Q$ENV{OLD }\E/$1$ENV{NEW }$2/' file 

例如：

我想從1.1.1.1到5.5更改文件中的IP地址.5.5

，但我得到以下幾點：

more file (before change) 

11.1.1.10 machine_moon1 



more file (after change) 

15.5.5.50 machine_moon1 

據「改變例子之後）的IP‘11.1.1.10’必須留下來，因爲它是的，因爲我想只改變1.1.1.1，而不是11.1.1.10

我需要幫助我的perl的一個行語法：

如何只根據以下規則改變我的perl語法：

RULE: Not change the IP address if:left IP side or right IP side have number/s 

例

IP=1.1.1.1  
IP=10.10.1.11 
IP=yyy.yyy.yyy.yyy 

[number]1.1.1.1[number] - then not replace 

[number]10.10.1.11[number] - then not replace 

[number]yyy.yyy.yyy.yyy[number] - then not replace 



Other cases: 

    [any character beside number ]yyy.yyy.yyy.yyy[[any character beside number ]] - then replace 

Answer 1

這裏是你開始有什麼用：

OLD=1.1.1.1 
NEW=5.5.5.5 

export OLD 
export NEW 

~/sandbox/$ cat file 
1.1.1.10 machine1 
11.1.1.10 machine2 
11.1.1.1 machine3 
1.1.1.1 machine4 
A1.1.1.1 machine5 
A1.1.1.1 machine6 
1.1.1.1Z machine7 

如果錨圖案只在字邊界或非數字（見perlre）的比賽，你應該只匹配一個完整的IP地址：

~/sandbox/$ perl -pe 'next if /^ *#/; s/(\b|\D)$ENV{OLD}(\b|\D)/$1$ENV{NEW}$2/' file 
1.1.1.10 machine1 
11.1.1.10 machine2 
11.1.1.1 machine3 
5.5.5.5 machine4 
A5.5.5.5 machine5 
A5.5.5.5Z machine6 
5.5.5.5Z machine7 

Answer 2

您應該使用向後看和前瞻語法，請參閱perlmonks上的一篇好文章：http://www.perlmonks.org/?node_id=518444

Answer 3

編寫一個簡短的腳本來執行此操作可能會更容易。

use strict; 
use autodie; 

my $old_ip = 10.1.1.1; # or $ENV{'OLD'} 
my $new_ip = 50.5.5.5; # or $ENV{'NEW'} 

open my $infh, '<', $ARGV[0]; 
open my $outfh, '>', $ARGV[1]; 
while (my $line = <$infh>) { 
    chomp $line; 
    my @elems = split '\s+', $line; 
    next unless $elems[0] eq $old_ip; 
    print $outfh $new_ip . join(" ", @elems[1..$#elems]) . "\n"; 
} 
close $outfh; 
close $infh;