[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