Perl初心者スレ（マジレス回答）

**デフォルトの名無しさん** · 2012/10/07(日) 00:48:39.00

どうぞー

**デフォルトの名無しさん** · 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_

**デフォルトの名無しさん** · 2014/02/19(水) 20:04:58.23

上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
どうしたらよいでしょうか。

**デフォルトの名無しさん** · 2014/02/19(水) 20:09:03.95

というか、どこかおかしいところがあるでしょうか？