Re^2: String Buffer


go ahead... be a heretic
	PerlMonks

Re^2: String Buffer

by FunkyMonk (Chancellor)

on Aug 24, 2008 at 15:10 UTC ( [id://706565]=note: print w/replies, xml )

Need Help??

in reply to Re: String Buffer
in thread String Buffer

Or, without using tie:

open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!";

my $stdout;
close STDOUT;
open STDOUT, ">", \$stdout or die $!; # This is where the magic happen
+s

print "foo\n";

close STDOUT;
open  STDOUT, ">&", $oldout or die $!;

print "Done fooling around\n";

print $stdout; # foo
[download]

This is mostly copy & pasted from open, so you might want to look there for more.

Unless I state otherwise, all my code runs with strict and warnings

Comment on Re^2: String Buffer Download Code

Replies are listed 'Best First'.

Re^3: String Buffer
by ambrus (Abbot) on Aug 25, 2008 at 13:07 UTC

In fact, that uses a perlio layer silently.

I've been wishing a perlio layer that allows you to simply open a stream that behaives like any tied handle eg.

use StringBuffer;
use PerlIO::Tied;
# Note: never close one of the three standard handles. It's almost alw
+ays a bad idea.
open OLDSTDOUT, ">&=STDOUT";
open STDOUT, ">:tied(StringBuffer)"; # I presume extra arguments to ti
+e get passed as extra argument to open
print STDOUT "this magically gets put to \$stdout\n";
open STDOUT, ">&=OLDSTDOUT";
print STDOUT "this gets put to the original standard output again\n";
[download]

This gets even more useful if you want to use a tied io handle from the command line eg. perl -MPerlIO::Tied -we 'some code' ':tied(SomeModule, arguments)'.

[reply]
[d/l]
[select]

In Section Code Catacombs

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://706565]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others having a coffee break in the Monastery: (7)

As of 2024-04-18 02:43 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found