[bcn-pm] Sustituir representaciones hexadecimales por caracteres

Xavier Noria fxnahashref.com
Div Feb 9 06:15:49 PST 2007


On Feb 9, 2007, at 1:14 PM, Jose Luis Perez Diez wrote:

> Se os occure alguna forma mejor de sustituir un flujo de  
> representaciones
> hexadecimales separadas por espacios ( incluidos posbles saltos de  
> linea ) a
> una secuencia de esos caracteres:
>
> perl -ne'while (s/\W*(\w*)\W//){print chr(hex($1))}' <<EOF
> 68 6f 6c 61 20 6d 75 6e 64 6f  20 68 6f 6c 61 20 6d 75 6e 64 6f
> 68 6f 6c
>  61
> 20 6d 75 6e 64 6f 0a
> EOF
> hola mundo hola mundohola mundo

Otra solucion seria usar autosplit:

   perl -ane 'print chr hex for @F'

pero ya va a gusto del consumidor.

-- fxn



Més informació de la llista de correu Barcelona-pm