August 1999 Return to the Perl Hardware Store Slide #20

Reference Operations

        sub remember {
          my ($reference) = @_;
          $true_value{$reference} = $reference;
        }
        sub unstringize {
          my ($stringized) = @_;
          return $true_value{$stringized};
        }


Next Copyright © 1999 M-J. Dominus