使用Perl REGEX交换IP的多个部分

Question

  

可能重复：
  Performing a regex substitution Perl

我有一条线来自STDIN。我需要在保留线路的同时交换部分IP地址。 XXX.XXX.233.XXX格式的IP应更改为XXX.XXX.234.XXX。其他一切都必须留下来。例如，以下行：

Hi My IP is 10.23.233.34. I live .233 miles from new york city in building 10.233 subsection .233.34. Ohh my friends IP is 10.33.233.55

应该成为

Hi My IP is 10.23.234.34. I live .233 miles from new york city in building 10.233 subsection .233.34. Ohh my friends IP is 10.33.234.55

我对Perl正则表达式不太好，所以也许Perl的人可以插话。

Answer 1

s/(\d{1,3}\.\d{1,3})\.233(\.\d{1,3})/$1.234$2/

将在PCRE中做你想做的事情