Mega Code Archive

 

Categories / Perl / Subroutine

 

Using closures

#!/usr/bin/perl  sub errorMsg {      my $lvl = shift;           return sub {          my $msg = shift;          print "Err Level $lvl:$msg\n";     }; }  $severe = errorMsg("Severe");  &$severe("Divide by zero");