Foro - Perl en Español

Hola, gente. Mi primer mensaje en el foro.

Tengo un problema al sustituir un carácter de un fichero XML en formato UTF-8 (pruebas.xml, que adjunto). El fichero solo contiene 2 líneas:

Problema:

perl -i.bak -pe "s/\x{00a9}/COPYRIGHT/g" pruebas.xml #FUNCIONA CORRECTAMENTE.
perl -i.bak -pe "s/\x{2028}/L SEPARATOR/g" pruebas.xml #NO FUNCIONA.

Os aseguro que he buscado por muchos sitios y no he encontrado la solución. ¿Alguno podría ayudarme? Gracias de antemano.

Saludos.

Bienvenida a los foros de Perl en Español, emencia.

Si el archivo está en formato UTF-8 se debería procesar de esa manera, pero... supongamos que queremos procesarlo como una ristra de bytes.

Entonces, veamos primero el aspecto del archivo, por dentro:

y ya vemos que los caracteres especiales son "c2a9" y "e280a8".

Entonces, esto funciona:

Como ves, estamos poniendo cada byte por separado con "\x{..}".

explorer, tengo que quitarme el sombrero. Es exactamente lo que necesitaba. Quizá debería haber publicado en el hilo de Perl básico. Todavía me queda mucho por aprender.

Muchísimas gracias.

Me funciona perfecto para un solo fichero, pero estoy intentando sustituir el carácter en varios xml de una carpeta y no hay manera.

He hecho muchas pruebas con ejemplos de este foro y encontradas en Internet y me da el error de Can't open *.xml: Invalid argument

¿Tendré algo mal configurado? Utilizo la última versión estable (y portable) de Strawberry Perl sobre Windows10.

Algunos ejemplos que he probado:


¿Qué estoy haciendo mal?

Da la sensación de que el shell de Windows no está haciendo una expansión de la expresión '*.xml'.

Obviamente, estamos hablando de que en el directorio donde estamos trabajando hay archivos que responden al patrón '*.xml'.

Compruébalo con el comando dir *.xml

Puede que ese shell tenga desactivado ese modo de expansión.

Sí, claro: en esa carpeta tengo 4 xml. La orden funciona con

perl -pi'.bak' -e "s/\x{e2}\x{80}\x{a8}/L SEPARATOR/g;" prueba.xml

Pero no con

perl -pi'.bak' -e "s/\x{e2}\x{80}\x{a8}/L SEPARATOR/g;" *.xml



Además, he probado en otro equipo y me ocurre lo mismo.

Creo que ya sé qué pasa... El problema es que el shell de Windows no hace expansión del carácter '*' ( https://msdn.microsoft.com/en-us/library/8bch7bkk.aspx ) salvo que vaya al final del patrón.

Es decir... que es la propia aplicación la que debe hacer la expansión...
using wildcard character * in perlscript command line

En Perl tienes glob()... pero va a complicarte el hacerlo todo en una sola línea.

Te veo haciendo un pequeño programa para resolver tu problema. En el último enlace que te he puesto hay ejemplos para usar glob() por los argumentos indicados por @ARGV.

Cada día me gusta más haber olvidado Windows

De todas maneras... recuerda que en Windows debes usar siempre comillas dobles, en la línea de comandos.

Ok, entendido. No me importa el no poder hacerlo en una sola línea. Hoy ya no me da tiempo a mirarlo, pero mañana haré pruebas con glob() y te contaré resultados. Muchas gracias por tu ayuda.

Saludos.

Se me había pasado comentarte los resultados. Todo bien, utilizando glob(). Muchísimas gracias por tu ayuda, explorer.

Saludos.