var number($1)
var number(10)
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Necesito reemplazar un texto por otro pero con expresiones regulares
que cogeré de un fichero.
Using perl Syntax Highlighting
# 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";
# RESPUESTA OK: var number(10)
$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";
# RESPUESTA OK: var number(10)
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
