■=Perl, ■=結果
四則演算の演算子
$tashizan = 200 + 50; $hikizan = 200 - 50; $kakezan = 200 * 50; $wari = 200 / 50;
200 + 50 = $tashizan はだめです。 Perlで =(イコール) は代入を意味しています。右辺の値を左辺に代入するのです。 $マークを付けると変数をあらわします。ここでは $tashizan としましたが、$ に続く文字は自分の好きなように決めてください(aからzのアルファベットや数字, _(アンダースコア)で表現してください)。他の変数と重複しなければ構いません。 【→Perl Reference: $】
#!/usr/local/bin/perl $tashizan = 200 + 50; $hikizan = 200 - 50; $kakezan = 200 * 50; $wari = 200 / 50; print "Content-type: text/html\n\n"; print "$tashizan<br>\n"; print "$hikizan\n<br>"; print "$kakezan\n<br>"; print "$wari<br>\n"; exit;
l_add_1.cgi
250 150 10000 4
$wari = 200 / 17;
11.7647058823529
ゼロによる除算 ゼロで割るとエラーとなってしまいます。
$wari2 = int(200 / 17); $wari3 = int(200 / 17 + 0.5);
小数点以下２桁で切り捨てるにはこのようにします。
$wari4 = int(200 / 17 * 100) / 100;
余り(剰余)を求めるには % を使います。
$wari5 = 200 % 17;
$wari6 = 5 ** 3;
$i = 1200; $i++;
#!/usr/local/bin/perl $wari1 = 200 / 17; $wari2 = int(200 / 17); $wari3 = int(200 / 17 + 0.5); $wari4 = int(200 / 17 * 100) / 100; $wari5 = 200 % 17; $wari6 = 5 ** 3; $i = 1200; $i++; print "Content-type: text/html\n\n"; print "200 / 17 = $wari1<br>\n"; print "int(200 / 17) = $wari2<br>\n"; print "int(200 / 17 + 0.5) = $wari3<br>\n"; print "int(200 / 17 * 100) / 100 = $wari4<br>\n"; print "200 % 17 = $wari5<br>\n"; print "5 ** 3 = $wari6<br>\n"; print "\$i = 1200<br>\n"; print "\$i++ = $i<br>\n"; exit;
l_add_2.cgi
200 / 17 = 11.7647058823529 int(200 / 17) = 11 int(200 / 17 + 0.5) = 12 int(200 / 17 * 100) / 100 = 11.76 200 % 17 = 13 5 ** 3 = 125 $i = 1200 $i++ = 1201
このページでは足し算・引き算・掛け算・割り算、硬くいえば加減乗除(四則演算)についてです。+, -, *, / を演算子と呼びます。Perlでどのようにしてこれら、演算子を扱うか説明していきたいと思っています。
l_add_1.cgi