Perl | References - GeeksforGeeks

10 Oct, 2018
In Perl, we use variables to access data stored in a memory location(all data and functions are stored in memory). Variables are assigned with data values which are used in various operations. Perl Reference is a way to access the same data but with a different variable. A reference in Perl is a scalar data type which holds the location of another variable. Another variable can be scalar, hashes, arrays, function name etc. Nested data structure can be created easily as a user can create a list which contains the references to another list that can further contain the references to arrays, scalar or hashes etc.
You can create references for scalar value, hash, array, function etc. In order to create a reference, define a new scalar variable and assign it the name of the variable(whose reference you want to create) by prefixing it with a backslash.
Examples: Making References of different Data Types:
# Array Reference

# defining array 
@array = ('1', '2', '3');

# making reference of array variable  
$reference_array = \@array;  

# Hash Reference

# defining hash
%hash = ('1'=>'a', '2'=>'b', '3'=>'c'); 

# make reference of the hash variable
$reference_hash = \%hash;   

# Scalar Value Reference

# defining scalar
$scalar_val = 1234;
 
# making reference of scalar variable
$reference_scalar = \$scalar_val; 

Note:
A reference to an anonymous hash can be created using the curly brackets {} around the key and value pairs.Example:# creating reference to anonymous hash
$ref_to_anonymous_hash = {'GFG' => '1', 'Geeks' => '2'};

Example:
# creating reference to anonymous hash
$ref_to_anonymous_hash = {'GFG' => '1', 'Geeks' => '2'};

A reference to an anonymous array can be created using the square brackets [].Example:# creating reference to an anonymous array
$ref_to_anonymous_array = [20, 30, ['G', 'F', 'G']];

Example:
# creating reference to an anonymous array
$ref_to_anonymous_array = [20, 30, ['G', 'F', 'G']];

A reference to an anonymous subroutine can also be created with the help of sub. Here there will be no name for the sub.Example:# creating reference to an anonymous subroutine
$ref_to_anonymous_subroutine = sub { print "GeeksforGeeks\n"};

Example:
# creating reference to an anonymous subroutine
$ref_to_anonymous_subroutine = sub { print "GeeksforGeeks\n"};

A reference to an Input/output handle i.e. dirhandle and filehandle cannot be created.
Now, after we have made the reference, we need to use it to access the value. Dereferencing is the way of accessing the value in the memory pointed by the reference. In order to dereference, we use the prefix $, @, % or & depending on the type of the variable(a reference can point to a array, scalar, or hash etc).
Example 1:
# Perl program to illustrate the # Dereferencing of an Array  # defining an array@array = ('1', '2', '3');    # making an reference to an array variable$reference_array = \@array;    # Dereferencing# printing the value stored # at $reference_array by prefixing # @ as it is a array referenceprint @$reference_array;    
123

Example 2:
# Perl program to illustrate the # Dereferencing of a Hash  # defining hash%hash = ('1'=>'a', '2'=>'b', '3'=>'c');  # creating an reference to hash variable$reference_hash = \%hash;     # Dereferencing# printing the value stored # at $reference_hash by prefixing # % as it is a hash referenceprint %$reference_hash;  
3c2b1a

Example 3:
# Perl program to illustrate the # Dereferencing of a Scalar  # defining a scalar$scalar = 1234;  # creating an reference to scalar variable $reference_scalar = \$scalar;   # Dereferencing# printing the value stored # at $reference_scalar by prefixing # $ as it is a Scalar referenceprint $$reference_scalar;  
1234

Perl
Perl
Writing code in comment?
Please use ide.geeksforgeeks.org,
generate link and share the link here.
Perl Tutorial - Learn Perl With Examples
Perl | Basic Syntax of a Perl Program
Perl | Inheritance in OOPs
Perl | Multidimensional Hashes
Perl | Opening and Reading a File
Perl | ne operator
Perl | Scope of Variables
Perl | Hashes
Perl | Data Types
Perl | defined() Function