You can tie STDOUT to a Tk::Text object to have anything printed in perl appear in the text widget. This doesn't handle input, of course, nor does it work with any external programs you might call (for those, see the previous suggestions).

#!/usr/bin/winperl
use warnings;
use strict;

use Tk;

my $mw = MainWindow->new();
my $tx = $mw->Text()->pack();

tie *STDOUT, 'Tk::Text', $tx;

$mw->repeat(1000, \&tick);

MainLoop;

my $count;
sub tick {
  ++$count;
  print "$count\n";
}
[download]

Man you are no less than a God!!! What a brilliant solution. Very clever. Something I didn't even consider. Works a treat. Now I just have to solve the other little myriad of problems and see if I can come up with a nice modular solution.

Its getting closer bit by bit.

Dean

merlyn pointed out that this feature is undocumented. Thus, it might be subject to change, not 100% reliable, etc. I haven't personally used it much, so I can't vouch for its reliability, either. If you have to use it in production code, you should keep a good test suite that you can re-run after every update.

bbfu
Black flowers blossom
Fearless on my breath

If it is output from your own script, do yourself a favor, and simply change all the relevant print statements with calls to a routine that appends to the widget.

If not, are you trying to catch the output of some command that completes quickly? (like, say, man or ls)

In that case, use $var=`command` to capture the stdout of the command into your variable.

If it is the output of a program that will take a while to execute, and produce output at various points in time, then you should open that program with a pipe, like so:

open(COM,"command |") || die "Could not execute command\n";
[download]

my $out = `command`;
$text->insert('end', $out);
[download]

open OUT "command |"
   or die "Could not open command: $!\n";
while (my $line = <OUT>) {
   # process $line ...
   $text->insert('end', $line);
}
[download]

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = new MainWindow;

my $t = $mw->Text(-width => 80, -height => 25, -wrap => 'none');
                                             $t->pack(-expand => 1);


open(CHILD, "./read-stdout-piper 2>&1 |") or die "Can't open: $!";
$mw->fileevent(\*CHILD, 'readable', [\&fill_text_widget,$t]);
MainLoop;

sub fill_text_widget {
          my($widget) = @_;

          $_ = <CHILD>;

         if((defined $_) && ($_ > 5)){print chr(07)}
          $widget->insert('end', $_);
          $widget->yview('end');

}
[download]

!/usr/bin/perl

$|++;

for my $i ( 0 .. 10) {
        print $i, "\n";
        sleep 1;
    }

print "sleeping 5\n";
sleep 5;

for my $i ( 0 .. 10) {
        print $i, "\n";
        sleep 1;
    }
[download]

Now how can I modify this program to do a tail on a file. I have multiple tables in my main GUI window and need to tail the summary, detail and error file! I am stuck so any help would be greatly appreciated! Thanks in advance!

You are better off getting rid of the tie to STDOUT, that is a hack of last resort. :-)

Look at this. You could open multiple IPC connected filehandles, watch them with multiple fileevents, and insert the output into the same text widget, with different colored text.

#!/usr/bin/perl
use strict;
use Tk;
use IO::Handle;

my $H=IO::Handle->new;
open($H,"tail -f -n 50 z.txt |") or die $!;

my $main = MainWindow->new;

my $t = $main-> Scrolled('Text',
              -wrap=>'none')->pack(-expand=>1);

$main->fileevent(\*$H,'readable',[\&fill,$t]);

MainLoop;

sub fill {
  my ($w) = @_;
  my $text;
  my $text =<$H>;
  $w->insert('end',$text);
  $w->yview('end');
}
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku