Foro - Perl en Español

Tengo un archivo de texto que no puedo modificar y tengo que sacar lo que quiero con una expresión regular precisa porque solo necesito la expresión regular para Delphi. No puedo hacer otra cosa más en Delphi que usar esta expresión regular.

El archivo lo subí acá: http://uploaded.net/file/0wcj751e

El código que tengo hasta ahora es este :



Necesito sacar lo que hay entre las llaves.



¿ Alguien me podría ayudar ?

Quizás, en Delphi, no sepan lo que es '.*?', así que debes poner el clásico '[^\}]*' (ya no recuerdo si se escribía así...)

Sí reconoce el (.*) pero el problema es que el archivo que subí y que me devuelve es código binario leyendo otro exe, entonces tiene espacios raros que no puedo eliminar porque intenté reemplazando todos los ' ' por nada y sigue intacto.

Deberías ver el archivo que subí.

Fíjate que he hablado de '.*?', no de '.*'.

Y ya he visto el archivo. No son espacios raros... son bytes cero...

Para indicar un byte cero, lo puedes hacer así: \0

Ejemplo:

Limpié todos los '\0' con un script aparte y quedó más limpio. ¿Conoces otros así para poder limpiar el archivo binario quedando solo texto?

Los byte cero están por una razón principal: porque los textos están codificados en UTF-16. Yo sospecho que es un texto sacado de un Windows, así que quizás sea un UCS-2. Pero otras partes dentro del archivo vi que estaban en iso-8859-1 (o quizás era Windows cp-1252).

Bueno, el caso es que, si se sabe la codificación de cada parte, Perl puede "quitarte" esos byte cero de forma automática, con el módulo Encode.

Si intentas quitarlos "a mano", pues puedes cargarte algo. No todas las codificaciones siguen un patrón de tamaño fijo como UCS-2.

Y, además, la última parte del archivo es un ejecutable binario para Windows...