Perl闭包实例解释

以下是代码片段：

#!/usr/bin/perl
sub errorMsg{
   my $lvl=shift;
# define the subroutine to run when called.
   return sub{
      my $msg=shift; #define the error type now.
      print "Err Lever $lvl:$msg\n"}; #print later.
}
$severe=errorMsg("Severe");
$fatal=errorMsg("Fatal");
$annoy=errorMsg(Annoying);
 
&$severe("Divide by zero");
&$fatal("Did you forget to use a semi-colon?");
&$annoy("Uninitialized variable in use");