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?
-
- Publicidad
RegExp. Sustituir expresión
3 mensajes
• Página 1 de 1
RegExp. Sustituir expresión
por pbellon » 2009-10-15 04:26 @226
- pbellon
- Perlero nuevo
- Mensajes: 36
- Registrado: 2004-10-22 06:48 @325
Publicidad
Re: RegExp. Sustituir expresión
por explorer » 2009-10-15 06:33 @314
En la parte derecha de la sustitución, debes usar $1:
Naturalmente, con llaves, para que tampoco se confunda con $11.
Using bash Syntax Highlighting
perl -le '$string = "CTSVxxxQ"; ($rc = $string) =~ s/(CTSV\w{3})[B|Q]/${1}1/g; print "[$rc]"'
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Naturalmente, con llaves, para que tampoco se confunda con $11.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
3 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados