FizzBuzz(Perl)

以前の日記でFizzBuzzを書いたが、Perlでどう書くのか苦戦していました。
答えはググれば良かったのね。

http://d.hatena.ne.jp/harupiyo/20070707より

まずはとにかく動作するものを作ってみる。

for(1..100){

$a = !($_%3)?'Fizz':'';

$a .= !($_%5)?'Buzz':'';

print $a || $_ , "\n";

}

ポイント

for の中身を1..100のように書けるのはPerl の好きなところ。美し。
use strict; してないので、変数を宣言せずに使って、コード字短。（普段これは当然やらないので、コレだけでも新鮮に思いました）
FizzやBuzz を出力したら数字は出力しないようにするので、|| 演算子を使ってどっちかを表示というのをやっています。

8/26に修正