in reply to An odd thing happend on the way to answering a SoPW - seek DATA oddity

Annoying bug actually. I often reread DATA (from the start) a few times in tests. I mostly use Perl on HP-UX 11.x and cygwin, so maybe this explains why I did not suffer this before.

On cygwin 1.5.22-1 with perl 5.8.7 I get the expected result: 


% stephan@armen (/home/stephan) %
% perl -w datah_seek_oddity.sh
Using Perl 5.008007

Result using DATA:

Found at 634: >NEWTABLE - third line<
Reread as >NEWTABLE - third line<

Result using file handle:

Found at 634: >NEWTABLE - third line<
Reread as >NEWTABLE - third line<

[download]
hth --stephan
  • Comment on Re: An odd thing happend on the way to answering a SoPW - seek DATA oddity
  • Download Code

In Section Seekers of Perl Wisdom