Foro - Perl en Español

Hola amigos, tengo una variable $file que tiene el contenido de una imagen pero en formato askii, si, la imagen es guardada en formato askii !!!

cuando la quiero imprimir con content-type: image/jpeg no me funciona...

Pero si la guardo en otro archivo colocando binmode FILE; si me la guarda bien...

Como puedo imprimir por mantalla esa imagen sin tener que guardarla como jpeg?

Se puede pasar a binario un string ?

Saludos

monoswim escribiste:Hola amigos, tengo una variable $file que tiene el contenido de una imagen pero en formato askii, si, la imagen es guardada en formato askii !!!

cuando la quiero imprimir con content-type: image/jpeg no me funciona...

Pero si la guardo en otro archivo colocando binmode FILE; si me la guarda bien...

Como puedo imprimir por mantalla esa imagen sin tener que guardarla como jpeg?

Se puede pasar a binario un string ?

Saludos

Puedes hacerlo usando pack (consulta perlpacktut, pero la verdadera pregunta es, Por qué leiste la imagen como ASCII? o porque dices que la tienes como ASCII?

Saludos,

Es que en verdad no las leo...Es el código que me viene a travéz de un formulario web, es para un sitio autoadministrable...en donde cada imagen quiero que esté en un XML con la info del producto...ya la guardo bien en el XML...Y la puedo recuperar y guardar cono JPG en binario, pero al imprimirlo me da error...

Gracias por la info, voy a checkear eso de pack...

Saludos

Si en $jpeg hay un fichero jpeg binario, prueba con esto:

Código: Seleccionar todo

binmode(STDOUT);
print STDOUT $jpeg;

En cuanto a guardar la imagen dentro del xml, me parece que había que hacerlo codificado en mime64....

GRACIAS explorer39 !!!

Diste justo en la tecla...jeje