Call sub : Subroutine Call « Subroutine « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » Subroutine » 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

1.	Call a subroutine and use it
2.	Call a subroutine without defining it
3.	Call the subroutine with $number
4.	Calling a sub routine with &
5.	Calling a sub routine with 'subroutine_name();'
6.	Calling function in print statement
7.	Calling subroutines that are not defined before use

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.