#!/usr/bin/perl -w
use Tk;
use strict;

my $host = 'localhost';

my $mw = MainWindow->new;

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

my $button = $mw->Button(-text => 'Execute',
            -command => \&ping_test)->pack;

MainLoop();


sub ping_test {

#print "Open Filehandle\n" or die "can't fork: $!";

open (PINGTEST, "ping $host 2>&1 |") or die "can't fork: $!";
$mw->fileevent(\*PINGTEST, 'readable', [\&fill_text_widget,$t]);

$button->configure(-text => 'Stop',
        -command => sub{

              print "Close Filehandle\n";
              close PINGTEST;# or die "bad ping: $! S?";
              print "All done!\n";
        });
}


sub fill_text_widget {
          my($widget) = @_;
          $_ = <PINGTEST>;
      $widget->insert('end', $_);
          $widget->yview('end');
}
[download]

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

use Tk;

my $mw       = new MainWindow::;
my $frm_name = $mw->Frame();
my $lab      = $frm_name->Label(-text => 'IP:');
my $ent      = $frm_name->Entry();
my ($txt, $but);
$but         = $mw->Button(-text => 'Start Ping',
                           -command => sub { push_button($but, $txt, $
+ent) });
my $textarea = $mw->Frame();
$txt         = $textarea->Text(-width => 40, -height => 10);
my $srl_y    = $textarea->Scrollbar(-orient=>'v', -command => [yview =
+> $txt]);
my $srl_x    = $textarea->Scrollbar(-orient=>'h', -command => [xview =
+> $txt]);
$txt->configure(-yscrollcommand => ['set', $srl_y],
                -xscrollcommand => ['set', $srl_x]);
$lab->grid(-row => 1, -column => 1);
$ent->grid(-row => 1, -column => 2);
$frm_name->grid(-row        => 1,
                -column     => 1,
                -columnspan => 2);
$but->grid(-row        => 4,
           -column     => 1,
           -columnspan => 2);
$txt->grid(-row => 1, -column => 1);
$srl_y->grid(-row    => 1,
             -column => 2,
             -sticky => 'ns');
$srl_x->grid(-row    => 2,
             -column => 1,
             -sticky => 'ew');
$textarea->grid(-row        => 5,
                -column     => 1,
                -columnspan => 2);
MainLoop();


sub push_button {
    my ($but, $txt, $eng) = @_;
    open my $PING, '-|', 'ping', $eng->get or die;
    $but->configure(-state => 'disabled');
    $txt->repeat(1000, sub {$txt->insert('end', scalar <$PING>)});
}
[download]

Hi,Run your program error is as follows:

E:\Study area\program_myself>perl t.pl

Tk::Error: List form of pipe open not implemented at t.pl line 42.

Tk callback for .button

Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 250

Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 175

<ButtonRelease-1>

(command bound to event)

Thanks.

Oh, OK, you are on MSWin. Change line 43 to

    open my $PING, 'ping ' . $eng->get . ' |' or die;
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

PerlTk on a thread..., Perl/Tk App and Interprocess Communication, Perl Tk freezes when command button is clicked ! ...