Re: Closing and re-opening the DATA Filehandle


Syntactic Confectionery Delight
	PerlMonks

Re: Closing and re-opening the DATA Filehandle

by Adam (Vicar)

on Apr 05, 2001 at 02:22 UTC ( [id://69923]=note: print w/replies, xml )

Need Help??

in reply to Closing and re-opening the DATA Filehandle

HA! I figured it out!

This works, and no filehandles in the error messages:

my @Table;
sub LoadTable
{
    local( $/, $. );
    my $position = tell( DATA );
    @Table = map {chomp; hex} split ' ', <DATA>;   
    seek DATA, $position, 0; # Reset the filehandle, rather then closi
+ng it. 
                             # Never close DATA.
}
[download]

But if I take $. out of the local line, then the filehandle shows up in the error messages. Thanks all!