その昔、".pl"ファイルと、".cgi"ファイルは、別の言語だと思ってたけど、同じperlファイルだと知った時に、少し頭がこんがらがった、ユゲタです。
perlは、ファイルアクセス権限を設定するのが面倒だな〜と思ってたけど、コマンドワンライナーで使うと非常に便利なので、phpばかりやってないで、perlもちゃんとおぼえましょう！と、自分に言い聞かせています。
そんなワケで、今回は、perl言語を使って、九九にtryします。
本日のIT謎掛け
「perl」と、かけまして・・・
「今どきの親に付けられた変な名前」と、ときます。
そのココロは・・・
キラキラネームだけど、何も問題ありません。
Perlで九九
#!/usr/bin/perl
for($i=1; $i<=9; $i++){
for($j=1; $j<=9; $j++){
printf "%d × %d = %d\t" , $j , $i , ($j*$i);
}
print "\n";
}
$ perl -f 001.pl
1 × 1 = 1 2 × 1 = 2 3 × 1 = 3 4 × 1 = 4 5 × 1 = 5 6 × 1 = 6 7 × 1 = 7 8 × 1 = 8 9 × 1 = 9
1 × 2 = 2 2 × 2 = 4 3 × 2 = 6 4 × 2 = 8 5 × 2 = 10 6 × 2 = 12 7 × 2 = 14 8 × 2 = 16 9 × 2 = 18
1 × 3 = 3 2 × 3 = 6 3 × 3 = 9 4 × 3 = 12 5 × 3 = 15 6 × 3 = 18 7 × 3 = 21 8 × 3 = 24 9 × 3 = 27
1 × 4 = 4 2 × 4 = 8 3 × 4 = 12 4 × 4 = 16 5 × 4 = 20 6 × 4 = 24 7 × 4 = 28 8 × 4 = 32 9 × 4 = 36
1 × 5 = 5 2 × 5 = 10 3 × 5 = 15 4 × 5 = 20 5 × 5 = 25 6 × 5 = 30 7 × 5 = 35 8 × 5 = 40 9 × 5 = 45
1 × 6 = 6 2 × 6 = 12 3 × 6 = 18 4 × 6 = 24 5 × 6 = 30 6 × 6 = 36 7 × 6 = 42 8 × 6 = 48 9 × 6 = 54
1 × 7 = 7 2 × 7 = 14 3 × 7 = 21 4 × 7 = 28 5 × 7 = 35 6 × 7 = 42 7 × 7 = 49 8 × 7 = 56 9 × 7 = 63
1 × 8 = 8 2 × 8 = 16 3 × 8 = 24 4 × 8 = 32 5 × 8 = 40 6 × 8 = 48 7 × 8 = 56 8 × 8 = 64 9 × 8 = 72
1 × 9 = 9 2 × 9 = 18 3 × 9 = 27 4 × 9 = 36 5 × 9 = 45 6 × 9 = 54 7 × 9 = 63 8 × 9 = 72 9 × 9 = 81
相変わらずの安定感がありますね。
何の問題もなくクリアできました。
入力モードにTRY
次に、数の入力をしてみます。
#!/usr/bin/perl
print "Input number : ";
$num = <STDIN>;
for($i=1; $i<=$num; $i++){
for($j=1; $j<=$num; $j++){
printf "%d × %d = %d\t" , $j , $i , ($j*$i);
}
print "\n";
}
$ perl -f 002.pl
Input number : 4
1 × 1 = 1 2 × 1 = 2 3 × 1 = 3 4 × 1 = 4
1 × 2 = 2 2 × 2 = 4 3 × 2 = 6 4 × 2 = 8
1 × 3 = 3 2 × 3 = 6 3 × 3 = 9 4 × 3 = 12
1 × 4 = 4 2 × 4 = 8 3 × 4 = 12 4 × 4 = 16
"$num = <stdin>;"という非常にシンプルな感じで書けます。
web系言語は、数値型と文字型がどちらでも使えるユルユル仕様なので、心配反面、便利に使えます。
linuxサーバーでperlを扱う時は、"chmod 0755"セットを忘れずにしましょうね。
エラーでちゃいますよ。
