[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