Call sub : Subroutine Call « Subroutine « Perl

1. Perl
2. Subroutine
3. Subroutine Call

Call sub

   


#!/usr/bin/perl
use warnings;
use strict;

sub do_list {
    my ($subref, @in) = @_;
  
    return map { &$subref ($_) } @in;
}

sub add_one {
    return $_[0] + 1;
}

$, = ",";
print do_list (\&add_one, 1, 2, 3);   # prints 2, 3, 4

   
    
    
  

Related examples in the same category