Anonymous functions : Subroutine Definition « Subroutine « Perl






Anonymous functions

   


#!/usr/bin/perl

use warnings;
use strict;

my $productRef = sub
{
   my $product = 1;

   foreach ( @_ ) {
      $product *= $_;
   }

   return $product;
};

my $printVal = &$productRef( 1, 2, 3, 4 );
print( join( ' * ', 1, 2, 3, 4  ), " = " );
print( "$printVal\n" );

   
    
    
  








Related examples in the same category

1.A subroutine is defined by the sub keyword and the block of code that follows.
2.Accessing variables in subroutines
3.Adding two arrays in a subroutine
4.Ading two arrays together
5.Create a subroutine
6.Define subroutine and call it with using global variable
7.Define subroutine prototype
8.Define subroutine then use it
9.Subroutine with arguments defined before it is used
10.Subroutine with no arguments defined after it is used: using ()
11.Subroutine with no arguments defined before it is used
12.Anonymous Subroutines