[bcn-pm] Sustituir representaciones hexadecimales por caracteres

Joaquin Ferrero explorerajoaquinferrero.com
Div Feb 9 04:39:34 PST 2007


El vie, 09-02-2007 a las 13:14 +0100, Jose Luis Perez Diez escribió:
> 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

explorer en next3:~> perl -ne 's/(\w+)/print chr hex $1/ge' <<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

-- 
Joaquin Ferrero <explorer en joaquinferrero.com>



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