[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