August 1999 Return to the Perl Hardware Store Slide #13

Globjects

        sub remember {
          my ($self, $key) = @_;     # $self is a GLOB reference
          *$self->{$key} = tell $self;
        }
        sub gobackto {
          my ($self, $key) = @_;
          seek $self, *$self->{$key}, 0;
        }


Next Copyright © 1999 M-J. Dominus