Mega Code Archive

 

Categories / Perl / Subroutine

 

Passing References to a Subroutine

#!/usr/bin/perl use warnings; use strict; my $a = 5; increment(\$a); print $a; sub increment {     my $reference = shift;     $$reference++; }