Perl – Difference between Functions and Subroutines

In Perl, when a code-script gets bigger in size i.e. contains hundreds of lines of code, it becomes difficult to manage such a code-script. To avoid this difficulty, Perl provides its users with the concept of Functions and subroutines. Functions and subroutines break up complex/large amounts of code into smaller more concise parts to make the program more readable.

They reduce the size of the application and debugging time by allowing us to reuse the code that has been written in the program earlier. Perl functions and subroutines are used to reuse code in a program. We can use a function at several places in our application with different parameters.

What is a Function?

A function is something which takes up a number of arguments, does something with them and then returns a value. It can either be built into the programming language or it can be provided by the user.

In Perl, when we define a function, we specify the name and the sequence of statements. Later, when we want to perform a computation, we can ‘call’ the function by name which will run the sequence of statements contained in the function definition.
There are many built-in functions in Perl which are quite handy too. For example, ‘say’ is a built-in function. Perl even allows us to build up our own function which can help us to perform the task that we want to do.

What is a Subroutine?

Subroutines (or sub) give us the ability to give a name to the section of the code so that when we want to use it again in the program, we can use it by just calling its name.



Subroutines help us do programming in Perl in two major ways:

  • First, they let us reuse the code again in the program which makes it easier to find and fix bugs, making it faster to write programs.
  • Second, they allow us to chunk our code into organizational sections. Each subroutine is responsible for a specific task.

In Perl, there are two cases when a piece of code is put into the subroutine:

  • When we know that the code would be used for calculation or action that’s going to happen more than once. For example, while putting a strong into a specific format or while turning an incoming data record into a hash, etc.
  • When there are logical units of our program that we want to break into pieces making our program easier to understand.

Below is a table of differences between a Function and a Subroutine:

FUNCTION SUBROUTINE

The basic format of a function is :

$myvalue = myfunction(parameter, parameter);

The basic format of subroutine is :

sub subroutine_name

{

   # body of subroutine

}

A function in Perl means something built into Perl. The main reference documentation for Perl built-ins is called perlfunc. A subroutine in Perl is a section of code that can take arguments, perform some operations with them, and may return a meaningful value, but don’t have to. However, they’re always user defined rather than built-ins.
Function are provided to us by Perl. Subroutines are chunks of code that we provide to Perl.
Functions are similar to subroutines, except that they return a value. 
A function commonly carries out some calculations and reports the result to the caller.
 Subroutines perform a task but do not report anything to the calling program.
A function cannot change the value of the actual arguments . A subroutine can change the value of the actual argument.
A function has deterministic output and no side effects.
 
A subroutine doesn’t have any such restrictions.

A Sample program for reversing a string using a Function and a Subroutine:

Function

filter_none

edit
close

play_arrow

link
brightness_4
code

#!/usr/bin/perl
# Perl program to reverse a string
# using pre-defined function
  
# Creating a string
$string = "GeeksForGeeks"
print "Original string: $string", "\n";
print "Reversed string: "
  
# Calling pre-defined function
print scalar reverse("$string"), "\n";

chevron_right


Subroutine

filter_none

edit
close

play_arrow

link
brightness_4
code

#!/usr/bin/perl
# Perl program to reverse a string
# using a subroutine
  
# Creating a string
my $string = 'GeeksforGeeks';
  
print 'Original string: ', $string, "\n";
print 'Reversed using Subroutine: '
    reverse_in_place($string), "\n";
  
# Creating a subroutine
sub reverse_in_place
{
    my ($string) = @_;
    my @array = split //, $string;
    my $n = scalar @array;
  
    for (0 .. $n / 2 - 1)
    {
        my $tmp    = $array[$_];
        $array[$_] = $array[$n - $_ - 1];
        $array[$n - $_ - 1] = $tmp;
    }
    return join('', @array);
}

chevron_right


Output:

Original string: GeeksforGeeks
Reversed using Subroutine:  skeeGrofskeeG



My Personal Notes arrow_drop_up

Check out this Author's contributed articles.

If you like GeeksforGeeks and would like to contribute, you can also write an article using contribute.geeksforgeeks.org or mail your article to contribute@geeksforgeeks.org. See your article appearing on the GeeksforGeeks main page and help other Geeks.

Please Improve this article if you find anything incorrect by clicking on the "Improve Article" button below.


Article Tags :
Practice Tags :


6


Please write to us at contribute@geeksforgeeks.org to report any issue with the above content.