Foro - Perl en Español

Hola nuevamente. Sólo con una pregunta sencilla pero que no he podido hacerla andar. El problema es el siguiente:

Tengo una cadena cualquiera. Ejemplo 123456. Necesito sacar el Ascii de cada valor pero no encuentro la forma de combinar las expresiones regulares con la función ord(). No sé si me puedan echar una mano o me dan otra idea.

En teoría la variable me quedaría de esta manera: 123456=495051525354.

A ver si me ayudan.

Gracias

--------------

Una solución sencilla:
Lo que hacemos es recorrer, uno a uno, todos los caracteres de $x, el primer string, y agregando la salida de ord() en la variable $y, que hace de acumulador.

Con expresiones regulares queda un poco más corto, pero el trabajo es casi el mismo:
Necesitamos guardar el valor anterior de $x, ya que va a ser modificado. En la expresión regular buscamos un sólo carácter cada vez (.) y nos quedamos con él (()). Para ese carácter, lo sustituimos por el valor ord(). Como es la ejecución de un operador, ponemos el modificador /e y como queremos repetir esto para todos los caracteres disponibles, ponemos el /g.

Esta otra forma usa el desempaquetado:
A unpack le decimos que le vamos a pasar una ristra de bytes y queremos que nos la convierta en los valores decimales que representan. El join unirá todos esos valores en un único escalar.

Gracias, ¡¡¡¡Como siempre con excelentes soluciones !!!!


-------------------
|23N3.