Foro - Perl en Español

Publicado: **2009-05-31 17:43 @780**

Hi!

Ando buscando un módulo en Perl que ayude a convertir texto normal a ASCII por ejemplo users = 117,115,101,114,115 (texto ASCII separado por comas)

¿Alguien podría ayudarme?

Publicado: **2009-05-31 17:49 @784**

El ASCII está prácticamente muerto. Ahora lo que hay que usar son las codificaciones regionales ISO. Mejor dicho: solo usar UTF8.

Usa el módulo Encode, su función from_to(), para pasar de una a otra.

También, si lo quieres hacer de forma directa:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

explorer@portatil:~>perl-le'$x="users"; print "$x=",join ",", map { ord }(split //, $x)'
users=117,115,101,114,115Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Publicado: **2009-05-31 19:16 @844**

Yo sugeriría:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

printjoin',',unpack"U*",$string# o A* para ASCII
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Saludos,

Publicado: **2009-06-01 16:16 @719**

Sólo aclaro que si bien usar "U*" sí funciona, "A*" no:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$x="users";
print"$x=",join",",unpack"A*",$x;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Produce useres=useres... ahora, pack "A6" se usa para agregar 6 espacios a un string... es similar a:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$string=sprintf"%-6s","algo";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Publicado: **2009-06-01 18:05 @795**

Sorry, de hecho quise decir "C*", para utilizar una representación interna en C de cada octeto sin el signo.

Buena atrapada

Publicado: **2009-06-02 17:24 @767**

Gracias a los que me ayudaron aunque la sintaxis avanzada y complicada de entender para mi, hace lo que estoy buscando...

Publicado: **2009-06-05 06:10 @299**

Pues aquí estaremos para explicarte lo que no entiendas... y así podrás aplicarlo luego en otros trabajos.

P.D. Recuerda que este es el foro Intermedio, y algunas cosas se dan por supuestas

Foro - Perl en Español

Cómo convertir texto normal a ASCII

Cómo convertir texto normal a ASCII