vari01.pl
#!/usr/bin/perl $a=100; #$aに100を代入 $b=5.1e3; #$bに5100(5.1X10の3乗)を代入 $c="ono"; $d=022; #0で始まるのは8進数 $e=0xff; #0xで始まるのは16進数 print "$a $b $c $d $e\n"; printf "%3o %3x", $d, $e; #printfも使える。oが8進、xが16進
vari02.pl
#!/usr/bin/perl $a="ono"; print "$a です\n"; #$aはonoに展開される print '$a です\n'; #$aは展開されない。\nもそのまま
vari03.pl
#!/usr/bin/perl $a=1+3; #足し算 $b=5-2; #引き算 $c=4*5; #掛け算 $d=8/4; #割り算 $e=9/4; #結果は実数 print "$a $b $c $d $e";
vari04.pl
#!/usr/bin/perl $a=2**3; #べき乗 $b=5%2; #余り print "$a $b";
vari05.pl
#!/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;
vari06.pl
#!/usr/bin/perl $a="Hello"." "."World!"; #.は文字を連結 $b="Hello! "x2; #xは文字を繰り返し print "$a \n$b";
vari07.pl
#!/usr/bin/perl $a=(5 < 10); #結果は真(1) $b=(5 lt 10); #ltは文字列の比較。先頭からアスキーコードで比較する。 #ここでは、5より1のアスキーコードのほうが小さいので偽(0) printf "%3d %3d",$a, $b;
数値比較演算子 | 文字列比較演算子 |
---|---|
< | lt |
> | gt |
<= | le |
>= | ge |
== | eq |
!= | ne |
vari08.pl
#!/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";
vari09.pl
#!/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";
最後の一文字を削除。
vari10.pl
#!/usr/bin/perl $a="Hello"; chop($a); #最後の一文字を切り取る print"$a\n";
標準入力から受け取ったデータの最後に入っている改行コードを削除するのに便利。
vari12.pl
#!/usr/bin/perl print"Input:"; $a=<STDIN>; chomp($a); #最後の1文字が改行なので削除 print"$a!\n";
vari13.pl
#!/usr/bin/perl $a="perl"; print"$a\n"; chomp($a); #最後の1文字が改行で無いと削除しない print"$a\n";
SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||