| Next | The Perl Hardware Store | DC.pm Version | 57 |
Since the stringized representation is faithful, you can use a hash to unstringize:
sub remember {
my ($reference) = @_;
$true_value{$reference} = $reference;
}
The value is the real reference; the key is the stringized version
To unstringize:
sub unstringize {
my ($stringized) = @_;
return $true_value{$stringized};
}
| Next | ![]() |
Copyright © 2003 M. J. Dominus |