Как добавить пользовательский атрибут в popup_menu с помощью CGI.pm?

Question

Я использую следующий Perl-код для создания всплывающего меню HTML с CGI.pm:

$html->popup_menu(
    -name  => "to", 
    -values => [@TO, $param_to], 
    -labels => {%TO, $param_to => $param_to,}, 
    -default => $param_to, 
    -onchange => $onchange, 
    -class => "form-control" 
); 

Сформированное меню выглядит следующим образом:

<select name="to" onchange="if (this.value=='support@abc.com' || document.theForm.supportform.value==1) document.theForm.submit();" class="form-control"> 
 
<option value=""> select recipient </option> 
 
<option value="sales@abc.com">Sales Inquiry</option> 
 
<option value="support@abc.com">Technical Support</option> 
 
<option value="jobs@abc.com">Jobs @ abc</option> 
 
<option value="investor-relations@abc.com">Investor Relations</option> 
 
<option value="webmaster@abc.com">abc Webmaster</option> 
 
</select>

Как я могу добавить атрибут required до <select> элемент?

Answer 1

Согласно документации CGI:

Многие подпрограммы будут делать что-то полезное с именованным аргументом, что он не признает.

Так что просто добавить еще один аргумент с именем -required:

$html->popup_menu(
    -name  => "to", 
    -values => [@TO, $param_to], 
    -labels => {%TO, $param_to => $param_to,}, 
    -default => $param_to, 
    -onchange => $onchange, 
    -class => "form-control", 
    -required => "required" 
); 

Это будет генерировать что-то вроде:

<select name="to" ... required="required"> 

Однако генерации HTML с CGI.pm боль и не очень ремонтопригодны. Лучше использовать библиотеку шаблонов, такую ​​как Template Toolkit. Шаблоны позволяют отделить код Perl и ваш HTML (в основном), так что вы можете иметь что-то вроде этого:

popup.tt

<select name="to" onchange="if (this.value=='support@abc.com' || document.theForm.supportform.value==1) document.theForm.submit();" class="form-control"> 
    [% FOR option IN options %] 
    <option value="[% option.value %]">[% option.text %]</option> 
    [% END %] 
</select> 

my_script.cgi

use strict; 
use warnings; 

use CGI; 
use Template; 

my $tt = Template->new or die Template->error; 

my $q = CGI->new; 
print $q->header; 

my $options = [ 
    { value => '', text => 'select recipient' }, 
    { value => 'sales@abc.com', text => 'Sales Inquiry' }, 
    { value => 'support@abc.com', text => 'Technical Support' }, 
    { value => 'jobs@abc.com', text => 'Jobs @ abc' }, 
    { value => 'investor-relations@abc.com', text => 'Investor Relations' }, 
    { value => 'webmaster@abc.com', text => 'abc Webmaster' } 
]; 

$tt->process('foo.tt', { options => $options }) or die $tt->error; 

Выход

<select name="to" onchange="if (this.value=='support@abc.com' || document.theForm.supportform.value==1) document.theForm.submit();" class="form-control"> 

    <option value="">select recipient</option> 

    <option value="sales@abc.com">Sales Inquiry</option> 

    <option value="support@abc.com">Technical Support</option> 

    <option value="jobs@abc.com">Jobs @ abc</option> 

    <option value="investor-relations@abc.com">Investor Relations</option> 

    <option value="webmaster@abc.com">abc Webmaster</option> 

</select>