Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Fellow Monks!
How do I rewind an input filehandle without having to close and reopen it?

Thanks.

Replies are listed 'Best First'.
Re: rewinding an input filehandle
by ketema (Scribe) on Jul 28, 2005 at 19:23 UTC
    I think perldoc -f seek
    should help you out
Re: rewinding an input filehandle
by chas (Priest) on Jul 28, 2005 at 19:30 UTC
    You can use seek, e.g. seek F,0,0 to reset to the beginning of the file.
    chas
Re: rewinding an input filehandle
by mugwumpjism (Hermit) on Jul 29, 2005 at 00:42 UTC

    There is also IO::Handle::ungetc for small rewinds on streams.

    $h=$ENV{HOME};my@q=split/\n\n/,`cat $h/.quotes`;$s="$h/." ."signature";$t=`cat $s`;print$t,"\n",$q[rand($#q)],"\n";