Hola:
Es realmente muy sencillo. Por ejemplo podrías hacer un script de la siguiente manera:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict
;
use CGI
;
my $query = new CGI
;
my %Input = $query->Vars;
my $DIR = '/dir/a/imagenes';
if($Input{img
} && -e
"$DIR/$Input{img}.jpg"){
print "Content-type: image/jpeg\n\n";
open my $IMG, '<', "$DIR/$Input{img}.jpg" or die("No se encontró la imagen: $!");
binmode($IMG);
print do { local $/; <$IMG> };
close $IMG;
}
exit(1
);Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Y después en tu HTML llamar a tu script así:
- <img src="imagen.cgi?img=Perfil">
- <img src="imagen.cgi?img=Imagen1">
El script recibe el nombre de la imagen, lo busca en el directorio que le hayas puesto y la despliega. Esto es útil por ejemplo, si quieres sacar tus imagenes de un directorio privado, o quizá ponerle un contador.
Saludos