print "Hello world\n";

{
    local(*STDOUT);
    open(STDOUT, ">some_other_world.txt") or die $!;
    print "Hi other world\n";
    close STDOUT;
}

print "Goodbye world\n";
[download]

Thanks, I was missing the *

---

Perl 6 in German

Do you understand why? The leading * is there because you're localizing the typeglob. As a result, you'll also effectively localize any $STDOUT, @STDOUT, or %STDOUT you may have defined.

Not likely to be a problem, but something that bit me at least once as a novice... ;-)

<–radiant.matrix–>
Ramblings and references
The Code that can be seen is not the true Code
I haven't found a problem yet that can't be solved by a well-placed trebuchet

my $out;
print STDERR "before\n";
{
    local *STDERR;
    open STDERR, ">", \$out or die;
    print STDERR "during\n";
}
print "after\n";
print "out: $out\n";
[download]

Output:

before
after
out: during
[download]