如何替换文件中的随机 IP 地址(Perl,Windows)

How to replace a random IP-address in a file (Perl, Windows)

如何使用 Windows Perl 替换 TXT 文件中的随机(未知)IP 地址? (不幸的是,我只找到了主要针对 Linux/sed 的解决方案)

我的文本文件包含 FTP 个命令,仅包含一个 IP 地址:

open ftp://user:password@123.123.123.123
cd c:/temp
mkdir newdir

等等

我试过了,但没有任何改变。

perl -pe s/[0-9]\{1,3\}.[0-9]\{1,3\}.[0-9]\{1,3\}.[0-9]\{1,3\}/10.10.111.222/g FtpCommands.txt > FtpCommands_mod.txt

谢谢!

如果您的文件有一个 IPv4 地址,使用 Regexp::Common 模块使这成为一个简单的单行代码:

perl -MRegexp::Common=net -pe "s/$RE{net}{IPv4}/10.10.111.222/" FtpCommands.txt > FtpCommands_mod.txt