note
Anonymous Monk
<p> Sure it is, maybe :)
<p> fail <strike> <c> [cpan://tkx tie], [metacpan://tkx tie], [google://site:perlmonks.org tkx tie stdout] </c> [cpan://tkx tie], [metacpan://tkx tie], [google://site:perlmonks.org tkx tie stdout] </strike>
<p> fail again <strike> [href://?node_id=3989;BIT=tie%20;HIT=Tkx]... </strike>
<p> use [mod://Tie::STDOUT] print => sub { $textvariable .= join ''. @_; }
<br> use [mod://Tie::STDERR] print => sub { $textwidget->insert("end", join ''. @_ ); }
<p> use constant STAPENDER => sub { $textwidget->insert_end( @_ ); };
<br> use [mod://Tie::STDOUT] print => STAPENDER;
<br> use [mod://Tie::STDERR] print => STAPENDER;
1006826
1006826
5