- 1 名前：デフォルトの名無しさん mailto:sage [2012/10/07(日) 00:48:39.00 ]
- どうぞー
- 232 名前：デフォルトの名無しさん [2014/02/19(水) 20:01:53.86 ]
- #!/usr/bin/perl
$buffer = $ENV{QUERY_STRING};
@pairs = split( /&/, $buffer );
foreach $pair ( @pairs ){
( $name, $value ) = split( /=/, $pair );
$FORM{$name} = $value;
}
$A = $FORM{name1};
$B = $FORM{name2};
print "Content-type: text/html\n\n";
print << "_EOM_";
<html>
<body>
A*B = $A * $B
</body>
</html>
_EOM_
- 233 名前：デフォルトの名無しさん [2014/02/19(水) 20:04:58.23 ]
- 上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
どうしたらよいでしょうか。
- 234 名前：デフォルトの名無しさん [2014/02/19(水) 20:09:03.95 ]
- というか、どこかおかしいところがあるでしょうか？
|
 |
