Foro - Perl en Español

Publicado: **2014-02-21 13:18 @596**

Necesito substituir todas las apariciones de texto entre y de un html por su correspondiente hipervínculo.

Por ejemplo,

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<b>pepito<b><b>fulanito</b>
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<b><a href="http://www.pepito.com">pepito</a><b><b><a href="http://www.fulanito.com">fulanito</a></b>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y quería saber si se puede hacer con un solo s//g.

Tampoco tengo claro si le pongo que coja lo que hay entre y que no me vaya a coger el primer con el último .

¿Alguna idea de cómo hacerlo?

¡Gracias!

Publicado: **2014-02-21 14:43 @655**

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

Esta es una forma de hacerlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$html = '<b>pepito</b><b>fulanito</b>';
 
$html =~ s{<b>(.*?)</b>}
          {<b><a href="http://www.$1.com">$1</a></b>}g;
 
print "$html\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Publicado: **2014-02-24 10:40 @486**

¡Muchas gracias!

Faltaría solamente poner $1 en lugar de pepito en la línea 4.

El '?' hace que coja el patrón más corto, ¿no?

Saludos,
Jor

Publicado: **2014-02-24 11:43 @530**

Arreglado

Sí, el '?' se refiere a que queremos que coincida el patrón con el menor número posible de caracteres, antes de llegar a ''.

De esta manera, evitamos que el comodín '.*' se "coma" todos los caracteres del archivo, hasta el final. Queremos que vaya poco a poco.

Foro - Perl en Español

Substituir apariciones entre determinados strings

Substituir apariciones entre determinados strings

Re: Substituir apariciones entre determinados strings

Re: Substituir apariciones entre determinados strings

Re: Substituir apariciones entre determinados strings