[Perl] Sustitucion

[Jose Antonio Galicia]

On Thu, 29 May 2003, Adrian Galindo wrote:

> find . -type f -name "*.htm" -exec perl -ne 's|.src = "img/|.src =
> "{img}img|' {} \;

 :) ¿Donde estas grabando? Esto es, haces el loop por
toooooodo el archivo pero nunca lo imprimes. supongo que
quieres hacer esto:

	$ find . -type f -name "*.htm" -exec perl -pi.bak 's|.src = "img/|.src = "{img}img|' {} \;

 pero yo prefiro hacerlo con xargs:

	$ find . -type f -name "*.htm" | xargs perl -pi.bak 's|.src = "img/|.src = "{img}img|'

 aquí la ventaja es que sólo ejecutas una vez perl por lo
que es más rápido.

 Supongo que ya tienes un respaldo, ¿verdad?

 Saludos,
 Toño
---
Paranoid schizophrenics outnumber their enemies at least two to one.