【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