Sure it is, maybe :)
fail [cpan://tkx tie], [metacpan://tkx tie], [google://site:perlmonks.org tkx tie stdout] tkx tie, tkx tie, site:perlmonks.org tkx tie stdout
fail again ?node_id=3989;BIT=tie%20;HIT=Tkx...
use Tie::STDOUT print => sub { $textvariable .= join ''. @_; }
use Tie::STDERR print => sub { $textwidget->insert("end", join ''. @_ ); }
use constant STAPENDER => sub { $textwidget->insert_end( @_ ); };
use Tie::STDOUT print => STAPENDER;
use Tie::STDERR print => STAPENDER;
In reply to Re: tie STDOUT in Tkx
by Anonymous Monk
in thread tie STDOUT in Tkx
by Roboz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |