Foro - Perl en Español

Muy buenas, tengo una duda creo que bastante básica a la hora de realizar una sustitución:

Tengo una línea de texto almacenada en una variable y quiero realizar una sustitución global en dicha línea pero de forma que solo se realice sobre las palabras que cumplen un cierto patrón (es decir, si la palabra tiene antes o después un espacio o un carácter no alfanumérico). El problema es que en la búsqueda sé delimitarle el patrón pero a la hora de sustituir no sé cómo especificarle que el punto o el carácter alfanumérico se mantenga.

Os pongo la expresión de ejemplo para que quede algo más claro:



Así me lo sustituye por el literal ( |\.) en vez de la ocurrencia que tuvo al principio... Supongo que será medio sencillo pero no consigo encontrar nada al respecto (¿quizás usando $1 o variables similares de Perl?).

Muchas gracias por adelantado, un saludo a todos,

Sebastián

Bienvenido a los foros de Perl en Español, sebas.

En efecto, se pueden usar variables de sustitución:

$lineaAux =~ s/( |\.)\Q$palabra\E( |\.)/$1$substituto$2/gi;

De todas maneras... si lo que estamos buscando es una palabra normal (aquello compuesto por caracteres alfanuméricos, distinto de los caracteres espacio y de los caracteres ortográficos), entonces podemos dejarlo así:

$lineaAux =~ s/\b\Q$palabra\E\b/$substituto/gi;

'\b' marca la frontera entre un carácter de palabra, y lo que no es palabra. Más información en perldoc perlre .

Fetén ambas posibilidades, ¡gracias explorer!