Foro - Perl en Español

por **patito** » 2007-05-16 15:08 @672

¿Cómo le asigno una imagen a una variable? Lo que quiero es guardar la referencia en un campo de una tabla en mysql y después poder asignarla a una variable para poder mandarla a imprimir en pantalla.

Estoy haciéndolo de la siguiente manera y no funciona, puedes apoyarme por favor.
La intención es guardar la referencia por ejemplo el C\winnt\... en un registro de una base de datos, y dependiendo de la consulta se le asigne esa referencia a la variable e imprima en pantalla esa imagen, las imágenes estarían en una carpeta en el servidor:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# asigno la imagen a una variable
$prueba='c:\WINNT\Temp\advertencia.gif';

binmode(STDOUT);
print"content-type:image/gif\n\n";

print"$prueba";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

la mando a imprimir pero me imprime: c:\WINNT\Temp\advertencia.gif

por **explorer** » 2007-05-22 13:42 @612

Tienes que hacer el open,while,read,close que te pongo más arriba, y luego, con toda la imagen leída en la varible $img, ya puedes sacarla hacia fuera, con un print $img;

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$prueba='c:\WINNT\Temp\advertencia.gif';

openmy$Imagen,'<',$pruebaordie"ERROR: No puedo leer la imagen $prueba: $!\n";
binmode($Imagen);

while(read($Imagen,$buffer, 1024)){
$img.=$buffer;# Leemos la imagen en bloques de 1k
}

close$Imagen;

binmode(STDOUT);
print"Content-type:image/gif\n\n";
print$img;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En este hilo tienes un ejemplo concreto:
viewtopic.php?t=693

por **patito** » 2007-05-22 15:09 @673

Código: Seleccionar todo: mysql> SELECT * FROM IMAGENES2; +----+----------------------------------+ | ID | IMAGEN | +----+----------------------------------+ | 1 | /evaluacion/Images/area_cme1.gif | | 2 | /evaluacion/Images/borrar.jpg | +----+----------------------------------+ 2 rows in set (0.00 sec)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$db=DBI->connect("dbi:$driver:$BD:$host",$user,$clave);

$query=$db->prepare("select IMAGEN FROM imagenes2 WHERE ID='2'");
$query->execute;
($IMAGEN)=$query->fetchrow_array;
$query->finish;

print<<inicio_HTML;

<html>
<head>
<title>Imagen</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<table>
<tr>
<td width="40" height="20" colspan="4" valign="top"><img src="$IMAGEN" width="100"></td>
</tr>
</table>
</body>
</html>


inicio_HTML

$sth->finish();
$db->disconnect();

exit;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo hice de esta manera. Muchas gracias.

por **patito** » 2007-06-04 14:45 @656

pero ahora que lo tengo asi, y que ya aparece la imagen, como le hago ahora para que tambien pueda imprimir texto, en caso de que el valor en el campo no sea una referencia a una imagen, si no texto, ya que al poner el <img src=$IMAGEN y si la variable contiene texto aparece un cuadro con una cruz roja por que esta esperando una imagen, de que manera puedo alternar entre imprimir imagen o texto?

Foro - Perl en Español

Imágenes

Imágenes

Publicidad

Imagenes

Imágenes

Imagenes

imagenes

imagenes

¿Quién está conectado?