加算と減算のサブルーチンを作成する方法

Question

ユーザが求めるフォームで加算と減算のサブルーチンを作成する方法2つの異なる数字を入力し、合計が最初に入力する数字で、入力した2番目の数字を減算します。

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を開始するのに適しています。