sourcecode
kayos
<code>
# $Id: StringBuffer.pm,v 1.1 2000/04/03 22:53:04 kayos Exp $
package StringBuffer;
sub TIEHANDLE {
my ($class, $c) = @_;
return bless(\$c,$class);
}
sub PRINT {
my ($self) = shift;
${$self} .= join('', @_);
}
sub PRINTF {
my ($self) = shift;
my ($fmt) = shift;
${$self} .= sprintf($fmt, @_);
}
# sometimes Perl wants it...
sub DESTROY { };
1;
</code>
<p>Sometimes I encounter a script or program that wants to
print directly to STDOUT (like Parse::ePerl), but I want it in a scalar variable.
In those cases, I use this StringBuffer module to make a
filehandle that is tied to a scalar.</p>
<p>Example:</p>
<code>
use StringBuffer;
my $stdout = tie(*STDOUT,'StringBuffer');
print STDOUT 'this will magically get put in $stdout';
undef($stdout);
untie(*STDOUT);
</code>
strings
T.R. Fullhart, <a href="mailto:kayos@kayos.org">kayos@kayos.org</a>