如何在CGI脚本中的图像上创建链接？

Question

我可以使用以下代码通过CGI.pm在我的CGI脚本中成功显示图像:

#!/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>