【perl】数と文字列について復習〜vol.2
=head〜=cutは、#と同じ役割を果たしています。実行される方は、実行したいところのみ=headと=cutを取って実行してください。
#! use/bin/perl use strict; use warnings; =head my $add = 12+3; my $sub = 12-3; my $mul = 12*3; my $div = 12/3; #pirnt内でスペースを使うと、そのスペースが反映されてprintされる。 print "\$add=$add\n"; print "\$sub = $sub \n"; print "\$mul = $mul \n"; print "\$div = $div \n"; #一年は何週間あるか。 my $week = 365/7; print "$week\n"; #浮動小数点から整数部のみ取り出す。 print int(365/7), "\n"; #四捨五入する。→0.5を足してからintする。 my $x = 12345.6; my $y = 65432.1; print int $x, "\n"; print int(12345.6), "\n"; print int($x+0.5), "\n"; print int $y, "\n"; print int (65432.1), "\n"; print int ($y+0.5), "\n"; #算術は、通常の算術と優先順位は変わらない。 print 1+2*3-4/2, "\n"; #剰余を求めるときは%を使用。 print 365/7, "\n"; print int (365/7), "\n"; print 365%7, "\n"; #0で割ろうとすると… #print 123%0; #累乗の計算 print 3**2, "\n"; print -3**2, "\n"; #print (-3)**2, "\n"; #←この式では、−3の累乗にはならない。 print ((-3)**2); =cut