2006-12-05 備忘録 Perl 無名関数をちょっとだけ試してみる。 #! /var/local/bin/perl -w use strict; my $add5 = sub { return $_[0] + 5; }; my $rs = $add5->(4); print $rs . "\n";# 9 __END__