0

所以我的 CGI Perl 中有一个按钮。单击该按钮时，我需要在 perl CGI 中分配一个动作，单击该按钮时，应在同一页面中打开一个具有指定宽度的新文本区域，并带有一个提交按钮。请帮助我如何进行。这是对我不起作用的代码。单击提交按钮时，我将如何通过电子邮件将消息发送到电子邮件 ID

在这里我打印按钮

print button('email',"email me","reqts()");

这是opentextarea子程序

sub reqts {

   print "<p><em>Enter your Message here</em><br>";
   print textarea(-name=>'Comments',
                      -rows=>10,
                      -columns=>50);
   print submit('Action','Send');

}

单击此按钮时，不会调用子例程。

此按钮位于另一个子例程中的 html 表单上

sub actions {
print
  start_html(),
  start_form(-action => 'com.pl'),
  submit(-name => 'submit', -value => 'View com.pl'),
   end_form,
  print button('email',"email me","reqts()"),   # this is the button
  start_form(-action => 'about.pl'),
  submit(-name => 'submit', -value => 'About Us');
  end_form,
  end_html;
}
4

1 回答 1

1

onClick属性（ 的第三个参数）button应该是 JavaScript 函数，而不是 Perl 函数。您应该研究 CGI 和网页是如何工作的。

于 2013-06-06T08:19:31.053 回答