Data Type Perl

  1. Home
  2. Perl
  3. Data Type
  4. 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;