perl CGI 单选按钮表单

Question

我的代码中有以下 CGI sn-p。它创建文本区域来输入我要发送的消息，但我想将其转换为模板样式，如“收音机”，所以我只选择单选按钮，它会将任何消息注入到客户的通知中，所以我不需要每次都输入消息。就像模板一样。有人有任何示例或代码可以解决我的要求吗？

use CGI;
use CGI::Carp;
...
...
$html .= $q->b("Customer Notification:") . $q->br;
    $html .= $q->textarea(-name=>'notification',
                          -rows=>4,
                          -columns=>60) . $q->p;

    $html .= $q->submit(-name=>' Send Notification ');
    $html .= "        ";
    $html .= $q->reset(-name=>' Reset to Original Value ');
    $html .= $q->p;

Answer 1

就像其他人提到的那样，您真的应该考虑使用CGI::Alternatives 中的其他解决方案之一。

不过……

my %labels = (
    'comment'   => 'General Comment',
    'problem'   => 'Non-critical Problem',
    'emergency' => 'Critical Emergency',
);
$html .= $q->radio_group(
            -name=>'notification',
            -values=>['comment','problem','emergency'],
            -default=>'comment',
            -linebreak=>'true',
            -labels=>\%labels,
);