 Lun Sep 05, 2005 10:03 am
|
 |
monoswim
Vive para Perl en Español
|
Registrado: 18 Nov 2003
Mensajes: 716
Ubicación: Buenos Aires
|
|
| Pasar a binario un string ($file) |
 |
|
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 |
|
|
|
|
Lun Sep 05, 2005 11:25 am
|
|
Perl user
Maestro Honorario
|
Registrado: 03 Nov 2004
Mensajes: 385
|
|
| Re: Pasar a binario un string ($file) |
|
|
| monoswim escribió: | 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, |
|
|
Lun Sep 05, 2005 11:40 am
|
|
monoswim
Vive para Perl en Español
|
Registrado: 18 Nov 2003
Mensajes: 716
Ubicación: Buenos Aires
|
|
|
|
|
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 |
|
|
Lun Sep 05, 2005 1:44 pm
|
|
explorer39
Perlero Frecuente
|
Registrado: 23 Ago 2005
Mensajes: 126
Ubicación: Valladolid, España
|
|
|
|
|
Si en $jpeg hay un fichero jpeg binario, prueba con esto:
| Código: |
binmode(STDOUT);
print STDOUT $jpeg; |
En cuanto a guardar la imagen dentro del xml, me parece que había que hacerlo codificado en mime64.... |
|
|
Lun Sep 05, 2005 2:52 pm
|
|
monoswim
Vive para Perl en Español
|
Registrado: 18 Nov 2003
Mensajes: 716
Ubicación: Buenos Aires
|
|
|
|
|
GRACIAS explorer39 !!!
Diste justo en la tecla...jeje |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
