Hola, comunidad, éste es un trozo de código muy simplificado.
Necesito reemplazar un texto por otro pero con expresiones regulares
que cogeré de un fichero.
# línea a traducir
$line = 'var varchar2(10)';
# respuesta esperada: var number(10)
# reemplazo con variable, no OK
$find = 'varchar2\((.+)\)';
$replace = 'number($1)';
$line =~ s/$find/$replace/;
print $line."\n";
# RESPUESTA ERR: var number($1)
# reemplazo sin variable, es OK
$line2 = 'var varchar2(10)';
$line2 =~ s/varchar2\((.+)\)/number($1)/;
print $line2."\n"; ...