perl - now 20 years old!

思い出させてくれてありがとう!

Rauru Blog ? Blog Archive ? Perl 20周年

WIRED の記事 によると、1987年12月18日に Perl の最初の版がリリースされたそうです。Wikipedia の記事 によると、comp.sources.misc にソースを流した日が12月18日だったってことだな。ついに20歳になってしまった。

package Happy::Birth;
sub Day {
    (my $when = lc( __PACKAGE__ . '::Day' )) =~  s/::/ /g;
    sub { print "$when to ", join( " ", @_ ), "\n" }
}
sub dear { qq[dear @_] }

Happy::Birth::Day->(you);
Happy::Birth::Day->(you);
Happy::Birth::Day->(dear $^X);
Happy::Birth::Day->(you);

日本の定義でも成人かあ。おめでとう!

Dan the Perl Monger