in reply to perl/tk show script progress

I googled and found this:

The ProgressBar Widget: 


#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::ProgressBar;

my $percent_done;

my $mw = MainWindow->new( -title => 'ProgressBar example' );
my $progress = $mw->ProgressBar(
    -width    => 30,
    -from     => 0,
    -to       => 100,
    -blocks   => 50,
    -colors   => [ 0, 'green', 50, 'yellow', 80, 'red' ],
    -variable => \$percent_done
)->pack( -fill => 'x' );
$mw->Button(
    -text    => 'Go!',
    -command => sub {
        for ( my $i = 0 ; $i < 1000 ; $i++ ) {
            $percent_done = $i / 10;
            print "$i\n";
            $mw->update } } )->pack(-side => 'bottom');
MainLoop;

[download]

Replies are listed 'Best First'.
Re^2: perl/tk show script progress
by swoop (Acolyte) on Sep 08, 2011 at 18:24 UTC
    This helps, yet I want a perk/tk gui window and within the window or a tab show a textarea type box where my second perl script will run.
[reply]
      yet I want a perk/tk gui window and within the window or a tab show a textarea type box where my second perl script will run.

      See Tk::ExecuteCommand. Here is an example: 

      #!/usr/bin/perl -w
use Tk;
use Tk::ExecuteCommand;
use Tk::widgets qw/LabEntry/;
use strict;

my $mw = MainWindow->new;

my $ec = $mw->ExecuteCommand(
    -command    => '',
    -entryWidth => 50,
    -height     => 10,
    -label      => '',
    -text       => 'Execute',
                  )->pack;
$ec->configure(-command => 'date; sleep 10; date');


my $button = $mw->Button(-text =>'Do_it',
                         -background =>'hotpink',
                         -command => sub{ $ec->execute_command },
                        )->pack;
 
MainLoop;

      [download]
      I'm not really a human, but I play one on earth.
      Old Perl Programmer Haiku ................... flash japh
[reply]
[d/l]
      The ProgressBar would be good if I could show the number count within the perl/tk GUI instead of the terminal window I started the ProgressBar perl/tk script.
[reply]

In Section Seekers of Perl Wisdom