Joe's Notes on Perl #3 - Referencing, Dereferencing, Extending Arrays and Hashes

So now you’re comfortable with Perl its time to move on to Extending those hashes and arrays.

Referencing – \

An important part of Perl is referencing. A reference is a “pointer” to the data in Perl’s eyes. References must be dereferenced to work.

To reference something in Perl add a backslash before an array or hash.

use strict;

my @array = qw ( Socks Milly Poppy);
my $arrayref = \@array;
print $arrayref; #Will print something like ARRAY(HEX)

#ref, A useful function to check what a reference contains
print ref($arrayref); #Prints "ARRAY"

my %hash = { "Joe", "Socks", "Matt", "Poppy", "Pete", "Milly"};
my $hashref = \%hash;
print $hashref; #Prints HASH(HEX)
print ref($hashref); #Prints HASH

use strict;

my @array = qw ( Socks Milly Poppy);

my $arrayref = \@array;

print $arrayref; #Will print something like ARRAY(HEX)

#ref, A useful function to check what a reference contains

print ref($arrayref); #Prints "ARRAY"

my %hash = { "Joe", "Socks", "Matt", "Poppy", "Pete", "Milly"};

my $hashref = \%hash;

print $hashref; #Prints HASH(HEX)

print ref($hashref); #Prints HASH

Dereferencing – {}

Now what good is having this data in a reference? To make it usable again you must dereference it.

Dereferencing depends on the data:

use strict;
use Data::Dumper;

#
# Strings
#
my $string = "Socks";
# Referenced
my $stringref = \$string;

# Dereferenced
my $newstring = ${$stringref};
print $newstring; #Prints "Socks"

#
# Arrays
#
my @array = qw ( Socks Milly Poppy);
# Referenced
# \@array
my $arrayref = \@array;

# Dereferenced 
# @{$ref}
my @newarray = @{$arrayref};
print @newarray; #Prints Socks Milly Poppy
#You can also do
print ${$arrayref}[1]; #Prints Milly

#
# Hashes
#
my %hash = ( "Joe" => "Socks", "Matt" => "Poppy", "Pete" => "Milly");
# Reference
my $hashref = \%hash;

# Dereferenced 
# %{$ref}
my %newhash = %{$hashref};
print %newhash; # Prints the hash
#Also possible: 
print ${$hashref}{"Joe"}; #Prints Socks

use strict;

use Data::Dumper;

# Strings

my $string = "Socks";

# Referenced

my $stringref = \$string;

# Dereferenced

my $newstring = ${$stringref};

print $newstring; #Prints "Socks"

# Arrays

my @array = qw ( Socks Milly Poppy);

# Referenced

# \@array

my $arrayref = \@array;

# Dereferenced

# @{$ref}

my @newarray = @{$arrayref};

print @newarray; #Prints Socks Milly Poppy

#You can also do

print ${$arrayref}[1]; #Prints Milly

# Hashes

my %hash = ( "Joe" => "Socks", "Matt" => "Poppy", "Pete" => "Milly");

# Reference

my $hashref = \%hash;

# Dereferenced

# %{$ref}

my %newhash = %{$hashref};

print %newhash; # Prints the hash

#Also possible:

print ${$hashref}{"Joe"}; #Prints Socks

To recap:

Strings

Reference: \$string
Dereference: ${$reference}

Arrays

Reference: \@array
Dereference: @{$reference}
Access an element: ${$reference}[0]

Hashes

Reference: \%hash
Dereference: %{$reference}
Access a value: ${$reference}{“key”}

Okay, now I expect you’re thoroughly confused. Why use references in the first place?

They can be manipulated very easily.

Array of Arrays

If you have several arrays and you want to smush them into one array then try this:

use strict;
use Data::Dumper;

my @array1 = qw ( Socks Milly Poppy);
my @array2 = qw ( Tiddles Puss Ivan);
#Reference them in a new array
my @array3 = (\@array1, \@array2);
print @array3; #Prints the references
print $array3[0][2]; #Prints "Poppy"

#Adding elements is easy
push (@{$array3[0]}Â Â  Â , "Thor");

print Dumper @array3;
#Returns
# $VAR1 = [
#Â Â Â Â Â Â Â Â Â  'Socks',
#Â Â Â Â Â Â Â Â Â  'Milly',
#Â Â Â Â Â Â Â Â Â  'Poppy',
#Â Â Â Â Â Â Â Â Â  'Thor'
#Â Â Â Â Â Â Â  ];
# $VAR2 = [
#Â Â Â Â Â Â Â Â Â  'Tiddles',
#Â Â Â Â Â Â Â Â Â  'Puss',
#Â Â Â Â Â Â Â Â Â  'Ivan'
#Â Â Â Â Â Â Â Â  ];

use strict;

use Data::Dumper;

my @array1 = qw ( Socks Milly Poppy);

my @array2 = qw ( Tiddles Puss Ivan);

#Reference them in a new array

my @array3 = (\@array1, \@array2);

print @array3; #Prints the references

print $array3[0][2]; #Prints "Poppy"

#Adding elements is easy

push (@{$array3[0]}Â Â Â , "Thor");

print Dumper @array3;

#Returns

# $VAR1 = [

#Â Â Â Â Â Â Â Â Â 'Socks',

#Â Â Â Â Â Â Â Â Â 'Milly',

#Â Â Â Â Â Â Â Â Â 'Poppy',

#Â Â Â Â Â Â Â Â Â 'Thor'

#Â Â Â Â Â Â Â ];

# $VAR2 = [

#Â Â Â Â Â Â Â Â Â 'Tiddles',

#Â Â Â Â Â Â Â Â Â 'Puss',

#Â Â Â Â Â Â Â Â Â 'Ivan'

#Â Â Â Â Â Â Â Â ];

Array of Hashes

Want to store several hashes in an array? Try this.

use strict;
use Data::Dumper;

my %hash1 = ("Joe" => "Socks", "Peter" => "Milly", "Matt" => "Poppy");
my %hash2 = ("Mr X" => "Tiddles", "Mr Y" => "Thor", "Mrs C" => "Steve");

my @array = (\%hash1, \%hash2);
print @array; #Prints the references
print $array[1]{"Mr X"}; #Prints "Tiddles"

#Adding a new hash is easy
push (@array, {"Mrs A" => "Margret"});

print Dumper @array;
#Returns
#$VAR1 = {
#          'Joe' => 'Socks',
#          'Matt' => 'Poppy',
#          'Peter' => 'Milly'
#        };
#$VAR2 = {
#          'Mr X' => 'Tiddles',
#          'Mrs C' => 'Steve',
#          'Mr Y' => 'Thor'
#        };
#$VAR3 = {
#          'Mrs A' => 'Margret'
#        };

use strict;

use Data::Dumper;

my %hash1 = ("Joe" => "Socks", "Peter" => "Milly", "Matt" => "Poppy");

my %hash2 = ("Mr X" => "Tiddles", "Mr Y" => "Thor", "Mrs C" => "Steve");

my @array = (\%hash1, \%hash2);

print @array; #Prints the references

print $array[1]{"Mr X"}; #Prints "Tiddles"

#Adding a new hash is easy

push (@array, {"Mrs A" => "Margret"});

print Dumper @array;

#Returns

#$VAR1 = {

# 'Joe' => 'Socks',

# 'Matt' => 'Poppy',

# 'Peter' => 'Milly'

# };

#$VAR2 = {

# 'Mr X' => 'Tiddles',

# 'Mrs C' => 'Steve',

# 'Mr Y' => 'Thor'

# };

#$VAR3 = {

# 'Mrs A' => 'Margret'

# };

Hash of Arrays

Storing arrays as a value with a key? Try this.

use strict;
use Data::Dumper;

my @array1 = qw ( Mats Hats Bats);
my @array2 = qw ( Milly Socks Poppy);

my %hash = (
  "Rhymes" => \@array1,
 "Cats"   => \@array2
);

print $hash{"Cats"}[1]; #Prints Socks
print @{$hash{"Cats"}}; #Prints @array2

push (@{$hash{"Rhymes"}}, "Sacks");

print Dumper %hash;
#Returns
#$VAR1 = 'Rhymes';
#$VAR2 = [
#          'Mats',
#          'Hats',
#          'Bats',
#          'Sacks'
#        ];
#$VAR3 = 'Cats';
#$VAR4 = [
#          'Milly',
#          'Socks',
#          'Poppy'
#        ];

use strict;

use Data::Dumper;

my @array1 = qw ( Mats Hats Bats);

my @array2 = qw ( Milly Socks Poppy);

my %hash = (

"Rhymes" => \@array1,

"Cats" => \@array2

);

print $hash{"Cats"}[1]; #Prints Socks

print @{$hash{"Cats"}}; #Prints @array2

push (@{$hash{"Rhymes"}}, "Sacks");

print Dumper %hash;

#Returns

#$VAR1 = 'Rhymes';

#$VAR2 = [

# 'Mats',

# 'Hats',

# 'Bats',

# 'Sacks'

# ];

#$VAR3 = 'Cats';

#$VAR4 = [

# 'Milly',

# 'Socks',

# 'Poppy'

# ];

Hash of Hashes

Nesting hashes is a-OK.

use strict;
use Data::Dumper;

my %hash1 = (1 => "Mats", 2 => "Hats", 3 => "Bats"); 
my %hash2 = ("Joe" => "Socks", "Pete" => "Milly", "Matt" => "Poppy");

my %hash = (
  "Rhymes" => \%hash1,
  "Cats"   => \%hash2
);

print $hash{"Cats"}{"Joe"}; #Prints Socks

#Add a new key value to a hash
$hash{"Rhymes"}{4} = "Flats";

#Lets put in an array
my @array = qw (One Two Three);
$hash{"Numbers"} = \@array;

print Dumper %hash;
#Returns
#$VAR1 = 'Rhymes';
#$VAR2 = {
#          '4' => 'Flats',
#          '1' => 'Mats',
#          '3' => 'Bats',
#          '2' => 'Hats'
#        };
#$VAR3 = 'Numbers';
#$VAR4 = [
#          'One',
#          'Two',
#          'Three'
#        ];
#$#VAR5 = 'Cats';
#$VAR6 = {
#          'Joe' => 'Socks',
#          'Matt' => 'Poppy',
#          'Pete' => 'Milly'
#        };

use strict;

use Data::Dumper;

my %hash1 = (1 => "Mats", 2 => "Hats", 3 => "Bats");

my %hash2 = ("Joe" => "Socks", "Pete" => "Milly", "Matt" => "Poppy");

my %hash = (

"Rhymes" => \%hash1,

"Cats" => \%hash2

);

print $hash{"Cats"}{"Joe"}; #Prints Socks

#Add a new key value to a hash

$hash{"Rhymes"}{4} = "Flats";

#Lets put in an array

my @array = qw (One Two Three);

$hash{"Numbers"} = \@array;

print Dumper %hash;

#Returns

#$VAR1 = 'Rhymes';

#$VAR2 = {

# '4' => 'Flats',

# '1' => 'Mats',

# '3' => 'Bats',

# '2' => 'Hats'

# };

#$VAR3 = 'Numbers';

#$VAR4 = [

# 'One',

# 'Two',

# 'Three'

# ];

#$#VAR5 = 'Cats';

#$VAR6 = {

# 'Joe' => 'Socks',

# 'Matt' => 'Poppy',

# 'Pete' => 'Milly'

# };

So as you can see, arrays and hashes are incredibly versatile.

See you later!

S	M	T	W	T	F	S
« Oct				May »
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30