Help for this page

Select Code to Download


  1. or download this
    my $sstr = "my string";
my $rsstr = \$sstr;
...
$$rsstr .= " + add to ref";

print "rs 2 str '$sstr'; ref: '" . $rsstr . "'; addr: '" . \$sstr . "'
+\n";
  2. or download this
    org str 'my string'; addr: 'SCALAR(0x22e8af8)'
rs 1 str 'my string + my string add'; addr: 'SCALAR(0x22e8af8)'
rs 2 str 'my string + my string add + add to ref'; ref: 'SCALAR(0x22e8
+af8)'; addr: 'SCALAR(0x22e8af8)'