Exchange reference : Reference « Data Type « Perl

1. Perl
2. Data Type
3. Reference

Exchange reference

   

#!/usr/bin/perl
use warnings;
use strict;

my $text1 = "This is a value";
my $text2 = "This is a value";

my $ref1 = \$text1;
my $ref2 = \$text2;

print $ref1 == $ref2;

$$ref1 = 'New value';
print $$ref2;  

   
    
    
  

Related examples in the same category