On 2/3/25 12:52, Joel Roth via Dng wrote:
> Lars Noodén via Dng wrote:
>> Also, it is unclear why you appear to be using a constant to hold a file
>> name. Instead, you might be interested in trying CPAN's File::Temp
>> module to manage temporary files and/or directories.
>
> Hi Lars,
>
> TMPFILE in `seek(TMPFILE,20,0)` is not a constant but a
> filehandle. Bareword filehandles are not recommended
> nowadays.
>
> open( my $fh, '>', 'foo.tmp' )
>
> is preferred to
>
> open( TMPFILE, '>', 'foo.tmp')
>
Hi,
You show a ',' between '>' and 'foo.tmp'. The book I use for reference,
"Perl by Example" by Ellie Quigley, does not use a comma there. It also
recommends filehandles be upper case.

An internet search shows example uses of tell() which are exactly as I
have them. The code I showed in my previous post is at the end of my
program for testing. There is no loop in effect as the OP suggested.

Best regards,
Fred