Foro - Perl en Español

Hola,

tengo que leer un fichero y sustituir tantas veces como aparezca una cadena por otra. Ejemplo1, si aparece CTSVxxxB sustituir por CTSVxxx1
Ejemplo2, si aparece CTSVxxxQ sustituir por CTSVxxx1

donde xxx puede ser cualquier letra o número.

He usado la siguiente expresión:
$rc = $string =~ s/CTSV([^ ]{3})[B|Q]/CTSV\1/g;

y me deja CTSVxxx.

Sin embargo, si uso
$rc = $string =~ s/CTSV([^ ]{3})[B|Q]/CTSV\11/g;

me deja CTSV, ya que interpreta \11 como el patrón 11.

¿Cómo puede poner el número 1?

En la parte derecha de la sustitución, debes usar $1:



Naturalmente, con llaves, para que tampoco se confunda con $11.

Perfecto. Gracias.