Executando uma substituição de regex Perl
Supondo que eu tenha o IP10.23.233.34
Eu gostaria de simplesmente trocar o233
para234
. O primeiro, segundo e último octeto são desconhecidos. O terceiro octeto é233
ou234
. Eu quero fazer a substituição de tal forma que ele corresponda ao IP, subs e mantém todo o resto enquanto ainda muda o último octeto. Por exemplo:
Entrada:10.23.233.34
s/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){}233\.(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){}234\.(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/
Saída:10.23.234.34