note
AgentM
You could redirect STDOUT to a pipe using the [pipe] creation command. Then, when you're done, you can read the entire pipe into a variable.
<code>
my $bologna;
{
pipe(READ,WRITE);
local *STDOUT=*WRITE;
local $|=1; #don't forget to unbuffer
(your evil STDOUT hard-coded code)
$bologna=<READ>;
}
print $bologna;
</code>
Voila. Pipes kick *ss when it comes to storing variable amounts of data and handle redirection. Of course, this isn't a problem in PerlLand, but I welcome you to CLand, if you'd tag along...
<br><h6><a href="http://www.mac-man.de">AgentM Systems</a> nor <a href="http://www.nasca.de">Nasca Enterprises</a> nor
<a
href="/index.pl?node=Bone%3A%3AEasy&lastnode_id=1072">Bone::Easy</a> nor <a href="http://www.macperl.com">Macperl</a> is responsible for the
comments made by
<a href="/index.pl?node=AgentM&lastnode_id=1072">AgentM</a>. Remember, you can build any logical system with NOR.</h6>
76515
76515