Re: __DATA__ Inconsistency

The only way I can get previous values of $_ printed is to slightly modify the loop:

use warnings;
use strict;

my $test = qq();
$_ = 'xxxx';
do{$test = $test . $_ } while (<DATA>);

print "$test";

__DATA__

Hello there.
This is me.
[download]

Are you perhaps doing that?

Comment on Re: __DATA__ Inconsistency Download Code

Replies are listed 'Best First'.
Re^2: __DATA__ Inconsistency by bichonfrise74 (Vicar) on Oct 04, 2008 at 03:41 UTC
It is very possible that I'm doing what you've just written. But the code is too long for me to post here. Anyway, thanks for all your inputs. I really appreciate it.	[reply]
Re^3: __DATA__ Inconsistency by ikegami (Patriarch) on Oct 04, 2008 at 04:07 UTC
`do BLOCK while EXPR;` [download] is uniquely special case of `EXPR while EXPR;` [download] The `do` variant is a bottom tested loop. The loop body will always execute at least once, and will do so before executing the condition expression.	[reply] [d/l] [select]