[bcn-pm] Sustituir representaciones hexadecimales por caracteres

Javier Rodriguez codeheadagmail.com
Diu Feb 11 15:02:22 PST 2007


pack() esta mandado a hacer para esto

$ perl -ne 'print pack("H*",join("",split(/[\s]/)));' << 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

Salud!
-Javier Arturo Rodriguez

On 2/9/07, Jose Luis Perez Diez <wjperezd at gencat.net> 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
> _______________________________________________
> llista dels Barcelona-pm
> Barcelona-pm at pm.org
> http://mail.pm.org/mailman/listinfo/barcelona-pm
> BCN Perl Mongers: http://barcelona.pm.org
>


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