Question

我有一个IP列表，我必须将所有以210.x.x.x开头的lP转换为10.x.x.x

例如：

210.10.10.217.170 ----＆gt; 10.10.10.217.170

是否有任何内联Perl正则表达式替换来执行此操作？

我想在Perl中进行这种替换。

Answer 1

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

Answer 2

为什么不使用sed呢？

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

如果你真的想要一个perl脚本：

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

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;

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

4 个答案: