Using closures. : Closure « Subroutine « Perl

1. Perl
2. Subroutine
3. Closure

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"); 

   
    
    
  

Related examples in the same category