Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Getting output on frame instead of terminal (Perl-Tk)

by Chankey Pathak (Novice)
on Aug 16, 2011 at 05:15 UTC ( #920414=perlquestion: print w/ replies, xml ) Need Help??
Chankey Pathak has asked for the wisdom of the Perl Monks concerning the following question:

Monks please check this question asked on stackoverflow. Is there any way to do this?

Comment on Getting output on frame instead of terminal (Perl-Tk)
Re: Getting output on frame instead of terminal (Perl-Tk)
by Anonymous Monk on Aug 16, 2011 at 06:11 UTC
    What vayaya said
Re: Getting output on frame instead of terminal (Perl-Tk)
by kcott (Abbot) on Aug 16, 2011 at 06:25 UTC

    When you click a button on the window generated by messageBox(), the popup is destroyed. Any output you subsequently generate (e.g. from your system() calls) cannot be added to the popup text because the popup no longer exists.

    -- Ken

Re: Getting output on frame instead of terminal (Perl-Tk)
by zentara (Archbishop) on Aug 16, 2011 at 12:18 UTC
    As kcott pointed out, the messagebox is not the right widget for displaying realtime output, it is meant for simple messages. Also, the messagebox destroys itself when you hit the Ok button, meaning that "you got the message".

    Here is a simple way to do what you want. I substituted different commands for the iptables commands, because that requires root, or sudo. Anyways, I'm not altering my firewall rules to test your script. :-)

    #!/usr/bin/perl use warnings; use strict; use Tk; # Main Window my $mw = new MainWindow; $mw->geometry('+100+100'); my $label = $mw -> Label(-text=>"Hello folks") -> pack(); my $button = $mw -> Button(-text => "Click here to Flush rules", -command =>\&flush) -> pack(); MainLoop; sub flush { $mw->messageBox(-message=>"Initiating flushing.. click on OK button"); # the script hangs here, until the messagebox OK button is pressed. my $text = $mw->Scrolled('Text')->pack(); #my $out1 = `iptables -L`; my $out1 = `ls -la`; $text->insert('end',"$out1\n"); $text->see('end'); #my $out2 = `iptables -F`; my $out2 = `dir`; $text->insert('end',"$out2\n"); $text->see('end'); #my $out3 = `iptables -L`; my $out3 = `ps auxww`; $text->insert('end',"$out3\n"); $text->see('end'); }

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://920414]
Approved by chrestomanci
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (11)
As of 2014-08-21 20:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (143 votes), past polls