Mega Code Archive

 

Categories / Perl / Subroutine

 

Pass reference to a subroutine to another subroutine

sub printhello {     print "Hello!\n"; } sub printem {     &{@_[0]}; } printem \&printhello;