如何在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时，无论何时何等 人们点击该图像将指向所需的网址，此代码失败：

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>