Estoy en pleno desarrollo de una aplicación en la cual estoy usando Perl con MySQL para manejar documentos dentro de MySQL y en un punto tengo que leer dichos documentos para buscar cierta información, me encontré por allí un ejemplo en donde utilizan:
Using perl Syntax Highlighting
my $imagen = $m->selectrow_hashref("SELECT documento,tipo FROM DocsDetail WHERE llave = '$id' and documentname = '$nombre' ");
print ((${$imagen}{'tipo'}) ? "Content-type: ${$imagen}{'tipo'}\n\n" : "Content-type: text/html\n\nImagen inexistente o Tipo de dato no soportado");
binmode(STDOUT);
print ((${$imagen}{'tipo'}) ? ${$imagen}{'documento'} : '');
print ((${$imagen}{'tipo'}) ? "Content-type: ${$imagen}{'tipo'}\n\n" : "Content-type: text/html\n\nImagen inexistente o Tipo de dato no soportado");
binmode(STDOUT);
print ((${$imagen}{'tipo'}) ? ${$imagen}{'documento'} : '');
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Y la verdad que no le entiendo.
Yo había usado el fetchrow_array y más o menos lo conozco pero de este no tengo ni idea.
¿¿¿¿Alguien me puede decir qué es lo que hacen estas instrucciones????
Gracias por ayudar a alguien que esta aprendiendo y que con gusto ayuda a los demás.
Negrazo.