Re^6: Reassign STDOUT/STDERR contents to a variable

Figured it out. The difference was that in the script that is to be executed via the eval, you can't rely on the special <> anymore it would seem.

Executing the following code results in printing the PerlIO man page.

my $script = 'while(<>) { print; }';
close(STDIN);
open (STDIN,'<',\my $stdin);
my $script_input = 'blah';
$stdin .= $script_input;
eval $script;
[download]

Wheras executing this code works fine:

my $script = 'while(<STDIN>) { print; }';
close(STDIN);
open (STDIN,'<',\my $stdin);
my $script_input = 'blah';
$stdin .= $script_input;
eval $script;
[download]

Any thoughts on how to workaround this? I like <>.

Comment on Re^6: Reassign STDOUT/STDERR contents to a variable Select or Download Code

Replies are listed 'Best First'.
Re^7: Reassign STDOUT/STDERR contents to a variable by Anonymous Monk on Sep 27, 2009 at 02:19 UTC
It is unrelated to eval, and truly is a WTF moment , and it prints PerlIO.pm. I've confirmed on win32 with perl v5.8.9, v5.10.0, v5.10.1 `#!/usr/bin/perl -- use strict; use warnings; close(STDIN); open( STDIN, '<', \my $stdin ) or die "$!\n$^E"; my $script_input = 'blah'; $stdin .= $script_input; while (<>) { print; }` [download]	[reply] [d/l]
Re^7: Reassign STDOUT/STDERR contents to a variable by Anonymous Monk on Sep 27, 2009 at 02:24 UTC
The bug goes away if you load "use PerlIO::scalar;"	[reply]
Re^8: Reassign STDOUT/STDERR contents to a variable by lothos (Novice) on Sep 28, 2009 at 06:06 UTC
Confirmed. Thank you.	[reply]
Re^7: Reassign STDOUT/STDERR contents to a variable by ikegami (Patriarch) on Sep 27, 2009 at 03:23 UTC
Apparently, an internal call to open (by an internal call to require) reused fd 0 (since you closed it), and something is referencing fd 0 rather than *STDIN.	[reply]