Perl 语言编程 - Linux教程

sub FETCH {my $self = shift;return $self->{VALUE};}sub STORE{my $self = shift;my $value = shift;my $handle = $self->{FH};print $handle "$value\n";$self->{VALUE} = $value;}sub DESTROY {my $self = shift;my $handle = $self->{FH};print $handle "The End\n";close $handle;}1;然 后 是 一 个 利 用 我 们 Remember 类 的 例 子 :use strict;396