参照[https://ja.wikipedia.org/wiki/Perl]
sub main() { my $money = 1; #整数型の定義 my $moji = "moji"; #文字型の定義 my $qty = 1.1; #小数型の定義 my $day = time; #日付型の定義 my @array = ("1","2","3"); #配列の定義 my $obj = undef #未定義状態 return money; #返却値 }
if($int > 0){ #条件 #真 } else { #偽 }
for(my int $i = 0 ; $i<10 ; $i++) { # 10回ループ }
my @array = { "x", "y", "z" }; # 配列を定義 foreach my $tmp(@array) { # 配列で定義した要素分ループ }
my $i = 0; #初期化 while(1) { # 無限ループ $i++; #インクリメント if( $i > 4 && $i < 8 ) next; #以降の処理を行わず次のループへ if( $i > 6 ) last; #ループ処理を終了する }
my $abc = "abcdefg"; if( $abc =~ /A|B|C/i ) { $abc =~ s/abc/xyz/g; }
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
