# curry.pl sub curry { my $func = shift; my @capture_arg = @_; return sub { return $func->(@capture_arg, @_); } } my $for_print = sub { print "@_\n"; }; my $printer = curry($for_print, "Hello,"); # 引数をキャプチャする $printer->("world!")…

# ref6.pl sub hellofunc { my $func = shift; return $func->("Hello!"); } hellofunc( sub { print "@_\n"; } ); # (1) hellofunc( sub { print "@_ World!\n"; } ); # (2) my $decorator = sub { return "***" . shift() . "***"; #shift()で受け取ったコ…