🚀 go-pugleaf

Chano <chano@lj.nospam.cl> escribio:
>   Necesito reemplazar en un string cada uno de los caracteres por un código hexadecimal.
> Pensaba poner el listado de equivalencias en un hash y luego usar una expresion regular de 
> reemplazo para hacerlo... pero me quedé en el hash y se me fue en collera la exp regular.

> %hash=( 'a' => '+61',
> 	'b' => '+62',
> 	...
> 	'z' => '+7A'
> 	);

> s/$string/??????/

>   Alguna idea?

  Bueno, lo resolvi de la siguiente manera

 $string =~ s/([\$,\@,\#,\!,\",\%,\',\(,\),\*,\+,\,,\-,\.,\/,\:,\;,\<,\=,\>,\?])/$hash{$1}/g ;

  Con eso, para cada caracter que este en la lista y que encuentre en $string, buscara su equivalente en 
$hash y lo reemplazara.

-- 
Chano
jgarrido[@]dcc.uchile.cl

Hoy en la tarde, chano@lj.NOSPAM.cl dijo:
> Chano <chano@lj.nospam.cl> escribio:
>>   Necesito reemplazar en un string cada uno de los caracteres por un
>> c�digo hexadecimal.  Pensaba poner el listado de equivalencias en un
>> hash y luego usar una expresion regular de reemplazo para
>> hacerlo... pero me qued� en el hash y se me fue en collera la exp
>> regular.

[...]

>  $string =~ s/([\$,\@,\#,\!,\",\%,\',\(,\),\*,\+,\,,\-,\.,\/,\:,\;,\<,\=,\>,\?])/$hash{$1}/g ;
>
>   Con eso, para cada caracter que este en la lista y que encuentre en
> $string, buscara su equivalente en $hash y lo reemplazara.

Aplicando lo que sale en `perldoc -q base':

  $string =~ s/(.)/sprintf("%X",ord($1))/eg;

O bien (mas eficiente pero quizas menos digerible):

  $string = unpack("H*", pack("A*", $string));

Saludines,

-- 
Guti
When in doubt, parenthesize. At the very least it will let some poor
schmuck bounce on the % key in vi.  -- Larry Wall in the perl man page