Как мне создать ссылку на изображение в CGI-скрипте?

Question

Я могу успешно показать изображение в моих CGI-скриптах через CGI.pm, используя этот код:

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

Однако, когда я хочу сделать, это включить URL в это изображение, но когда люди нажимают на это изображение, оно будет указывать на нужный URL, этот код не удался:

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

Как правильно это сделать?

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>