subroutine-prototypes

来源： https://stackoverflow.com/questions/63836449/how-do-i-get-the-signature-of-a-subroutine-in-runtime

来源： https://stackoverflow.com/questions/63836449/how-do-i-get-the-signature-of-a-subroutine-in-runtime

问题 Caveats associated with prototypes accepted and notwithstandingc, can the two below contrived subs exist within the same package, i.e. to provide an optional block parameter like sort does? sub myprint { for (@_) { print "$_\n"; } } sub myprint (&@) { my $block = shift; for (@_) { print $block->() . "\n"; } } The intent is provide a similar calling convention as sort , e.g. to allow execution of: my @x = qw(foo bar baz); print_list @x; # foo # bar # baz ...and: my @y = ( {a=>'foo'}, {a=>'bar'