Perl で FizzBuzz

Perl FizzBuzz

いやぁ、いろんな方法があるねぇ。もう完全にネタだけど。ということで Perl 版。

use strict;
use warnings;

print [$_, 'Fizz', 'Buzz', 'FizzBuzz']->[($_ % 3 == 0) * 2 + ($_ % 5 == 0)], "\n" for 1..100;

昨日の MySQL 版と同じアプローチだけど、これを採用しているひとはあんまりみてない気がする。まぁ、そもそもそんなに回答みてないけどね。
もうひとつ。

print ['Fizz']->[$_ % 3] . ['Buzz']->[$_ % 5] || $_, "\n" for 1..100;

お、golf できるんじゃね？

print ['Fizz']->[$_%3].['Buzz']->[$_%5]||$_,"\n"for 1..100;

59B で、28位也。修行が足りない。