如何用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;