Comment créer un lien sur une image dans un script CGI?

Question

je peux montrer avec succès l'image dans mes scripts CGI via CGI.pm, en utilisant ce code:

#!/usr/bin/perl -w 
use CGI::Carp qw(fatalsToBrowser); 
use CGI qw/:standard/; 
print img {src => "../images/myimage.png", align=>"CENTER"}; 

Cependant quand je veux faire est d'inclure l'URL dans cette image, wo que chaque fois les gens cliquent sur cette image il pointera vers l'URL désirée, ce code a échoué:

print img {src => "../images/myimage.png", align=>"CENTER", -href=>"www.google.com"}; 

Quelle est la bonne façon de le faire?

Answer 1

#!/usr/bin/perl -w 
use CGI::Carp qw(fatalsToBrowser); 
use CGI qw/:standard/; 
print a({ href => 'http://www.google.com' }, img {src => "../images/myimage.png", align=>"CENTER" }); 

# OUTPUT: 
<a href="http://www.google.com"><img align="CENTER" src="../images/myimage.png" /></a>