#!/usr/bin/perl

$a=100;      #$aに100を代入
$b=5.1e3;    #$bに5100(5.1X10の３乗)を代入
$c="ono";
$d=022;      #0で始まるのは８進数
$e=0xff;     #0xで始まるのは１６進数

print "$a $b $c $d $e\n";
printf "%3o %3x", $d, $e; #printfも使える。oが８進、xが１６進

#!/usr/bin/perl

$a="ono";

print "$a です\n";        #$aはonoに展開される
print '$a です\n';        #$aは展開されない。\nもそのまま

#!/usr/bin/perl

$a=1+3;        #足し算
$b=5-2;        #引き算
$c=4*5;        #掛け算
$d=8/4;        #割り算
$e=9/4;        #結果は実数

print "$a $b $c $d $e";

#!/usr/bin/perl

$a=2**3;        #べき乗
$b=5%2;        #余り

print "$a $b";

#!/usr/bin/perl

$a=(2>3);        #結果は偽(0)
$b=(7<9);        #結果は真(1)
$c=(9<=3);
$d=(4>=1);
$e=(4==5);       #==は等しいときに真
$f=(3!=6);       #!=は等しくないときに真

printf "%3d %3d %3d %3d %3d %3d",$a, $b, $c, $d, $e, $f;

#!/usr/bin/perl

$a="Hello"." "."World!";    #.は文字を連結
$b="Hello! "x2;             #xは文字を繰り返し

print "$a \n$b";

#!/usr/bin/perl

$a=(5 < 10);    #結果は真(1)
$b=(5 lt 10);   #ltは文字列の比較。先頭からアスキーコードで比較する。
                #ここでは、5より1のアスキーコードのほうが小さいので偽(0)

printf "%3d %3d",$a, $b;

#!/usr/bin/perl

$a=10;

$a+=2;       #$aに2を足して$aに代入
print "$a\n";

$a-=2;       #$aから2を引いて$aに代入
print "$a\n";

$a*=2;       #$aを2倍して$aに代入
print "$a\n";

$a="Hello ";
$a.="World!";       #"Hello "に"World!"を付け足す
print "$a\n";

#!/usr/bin/perl

$a=10;

$a++;       #$aに1を足す
print "$a\n";

++$a;       #$aに1を足す
print "$a\n";

$a--;       #$aから1を引く
print "$a\n";

--$a;       #$aから1を引く
print "$a\n";

$b=$a++;    #$aを$bに代入してから、$aに1加える
print "$b\n";

$c=++$a;    #$aに1加えて$cに代入
print "$c\n";

#!/usr/bin/perl

$a="Hello";
chop($a);     #最後の一文字を切り取る

print"$a\n";

#!/usr/bin/perl

print"Input:";
$a=<STDIN>;

chomp($a);    #最後の1文字が改行なので削除
print"$a!\n";

#!/usr/bin/perl

$a="perl";
print"$a\n";

chomp($a);    #最後の1文字が改行で無いと削除しない
print"$a\n";