如何用Perl替換文件中的特定IP？

Question

我的IP地址列表，我不得不開始210.x.x.x所有有限合夥人轉變爲10.x.x.x

例如：

210.10.10.217.170 ---->10.10.10.217.170

有沒有在線的Perl正則表達式替代做到這一點？

我想有這種替代在Perl。

Answer 1

你爲什麼不使用sed的呢？

sed -e 's/^210\./10./' yourfile.txt 

如果你真的想要一個perl腳本：

while (<>) { $_ =~ s/^210\./10./; print } 

Answer 2

$ip =~ s/^210\./10./; 

Answer 3

你可以使用perl -pe遍歷文件的行，做一個簡單的替換：

perl -pe 's/^210\./10./' file 

或者就地修改文件：

perl -pi -e 's/^210\./10./' file 

見perlrun和s///。

Answer 4

# Read the IP list file and store in an array 
$ipfile = 'ipfile.txt'; 
open(ipfile) or die "Can't open the file"; 
@iplist = <ipfile>; 
close(ipfile); 

# Substitute 210.x IPs and store all IPs into a new array 
foreach $_(@iplist) 
{ 
    s/^210\./10\./g; 
    push (@newip,$_); 
} 

# Print the new array 
print @newip;