CGI.pm: включить изображение?

Question

Я пишу Perl / CGI-скрипт с модулем CGI.pm. Я могу вернуть text / 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 <a href="http://www.perl.org/simages/lcamel.gif">http://www.perl.org/simages/lcamel.gif</a> -alt Powered by Perl, поэтому изображение даже не имеет альтернативного текста.

Первым аргументом 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',
})