Closure in action : Closure « Subroutine « Perl

1. Perl
2. Subroutine
3. Closure

Closure in action

   

sub paint {
    my $color = shift;    
    my $ref = sub {       
        my $object=shift;
        print "Paint the $object $color.\n"; # $color still in scope
    };
    return $ref;    
}

my $p1=paint("red");   
my $p2=paint("blue");  

$p1->("flower");  
$p2->("sky");

   
    
    
  

Related examples in the same category