CGI.pm：包含图像？

Question

我正在用模块CGI.pm写Perl/CGI脚本。我可以返回文本/ html，但不能在其中包含图像，它始终显示'alt'标记，我确信href链接。

这里是我的代码：

#!/usr/bin/perl -w 
use strict; 
use CGI; 

my $cgi = new CGI; 

print $cgi->header(-type=>'text/html'), 
     $cgi->start_html(-title=>'Test Page'), 
     $cgi->h1('Infos switch'), 
     "This is a test.", 
     $cgi->h1('Testing'), $cgi->hr, "\n", 
     $cgi->img(-src=>'http://www.perl.org/simages/lcamel.gif', 
       -alt=>'Powered by Perl'), "\n\n", 
     $cgi->end_html; 
exit; 

Answer 1

首先，你没有得到的替代文字。你发送<img>-src http://www.perl.org/simages/lcamel.gif -alt Powered by Perl，所以图像甚至没有ALT文本。

img的第一个参数应该是属性的散列。其余部分被视为子元素。

$cgi->img({ 
    -src => 'http://www.perl.org/simages/lcamel.gif', 
    -alt => 'Powered by Perl', 
}) 

破折号是可选的，所以你也可以使用

$cgi->img({ 
    src => 'http://www.perl.org/simages/lcamel.gif', 
    alt => 'Powered by Perl', 
})