Question

如何在用户被要求输入两个不同数字的表单中创建用于加减的子程序，并且总和是他们输入的第一个数字加/减去他们输入的第二个数字。到目前为止我只有表格：

use CGI qw (:standard);
print header;
print start_html;
if (!param)
{ 
    print "<form action='$ENV{SCRIPT_NAME}' method=get>\n",br;
    print "Enter the first number: <input type='text' size='10' name='fnumber'>\n",br;
    print "Enter the second number:<input type='text' size='10' name='snumber'>\n",br;
    print "<input type='radio' name='sum' value='add'>Add\n",br;
    print "<input type='radio' name='sum' value='sub'>Sub\n",br;
    print "<input type='submit' value='Submit'>\n",br;
    print "</form>";
}
print end_html;

Answer 1

子例程通过sub声明，如下所示：

sub add {
    my ($x,$y) = @_;

    return $x + $y;
}

考虑查看https://learn.perl.org/或获取一本书， “学习Perl”很棒。

我个人不建议使用CGI，因为它很古老，顺便说一下，你可以使用许多现代框架，让生活更轻松。 Mojolicious是开始IMO的好地方。

如何创建加法和减法子程序

1 个答案: