[お題にTRY] 九九の表示 #Perl

2020年6月6日

Perl テクノロジー プログラミング 特集

t f B! P L
その昔、".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"セットを忘れずにしましょうね。 エラーでちゃいますよ。

このブログを検索

プロフィール

自分の写真
町田市, 東京都, Japan
プログラミングとサーバーを心の底から楽しむクリエーターです。 経営者であり、開発者でもありますが、得意としているのは、アイデア創出です。

ブログ アーカイブ

QooQ