Perl, anexar un carácter a la i-ésima captura grupo

Question

tengo este chiste:

perl -pe 's|.*?((\d{1,3}\.){3})xxx.*|\1|' 

Alimento a este comando con alguna entrada, al igual que 192.168.1.xxx, y funciona. Ahora, quiero añadir un 0 a la secuencia de salida, pero por supuesto si añado el 0 justo después de \1, se analizará como el décimo grupo de captura. ¿Cómo puedo concatenarlo entonces a la directiva \1?

Answer 1

Usted should use $1 instead of \1 in substitutions. Entonces puede usar llaves para escribirlo inequívocamente así:

perl -pe 's|.*?((\d{1,3}\.){3})xxx.*|${1}0|'