Globjects

• I promised a remember operation

• $fh->remember('hippo') will save the current position under the key hippo.

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

• $fh->gobackto('hippo') will return to the saved position.

     sub gobackto {
       my ($self, $key) = @_;
       seek $self, *$self->{$key}, 0;
     }

• Future reads from the `filehandle' will continue from the old position

Next

Copyright © 2003 M. J. Dominus