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

我可以使用以下代码通过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"};

正确的方法是什么？

#/usr/bin/perl-w
#!/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>

使用CGI：：Carp qw（fatalsToBrowser）；
使用CGI qw/：标准/；
打印（{href=>'http://www.google.com“}，img{src=>”./images/myimage.png”，align=>“CENTER”}）；
#输出：

#/usr/bin/perl-w
使用CGI：：Carp qw（fatalsToBrowser）；
使用CGI qw/：标准/；
打印（{href=>'http://www.google.com“}，img{src=>”./images/myimage.png”，align=>“CENTER”}）；
#输出：

如何“失败”<代码>http://www.google.com而不是

www.google.com

会有帮助吗？@eumiro:谢谢，但那也不行。HTML图像元素没有“href”属性。你需要在你的图像元素周围创建一个锚元素。它是如何失败的<代码>http://www.google.com而不是

www.google.com

会有帮助吗？@eumiro:谢谢，但那也不行。HTML图像元素没有“href”属性。您需要围绕图像元素创建一个锚元素。