2017-02-24 クロージャ Perl sub newprint { my $x = shift; return sub { my $y = shift; print "$x, $y!\n"; }; } $h = newprint("Howdy"); $g = newprint("Greetings"); # Time passes... &$h("world"); &$g("earthlings"); 出力はこうなります。 Howdy, world! Greetings, earthlings!