TK::ExecuteCommand

vikee has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks :)

I need to write a program that redirects the output of
 other programs to a window. The only working solution 
could be the ExecuteCommand and fileevent. A have found an 
example code, but it doesn't work on win.

This is the output:
Proc::ProcessTable missing, can't kill sub-children. at G:/Perl/lib/Proc/Killfam.pm line 22.
Can't call method "ExecuteCommand" on an undefined value at D:\...\exec.pl line 1.

I have proc::processtable.pm (does it work only under linux?)

Can anybody give me a working example under win (and also
it should work under linux too). I don't need killproc and 
others just the execution, redirection to a window, exit code. 

please, help me! thx

Comment on TK::ExecuteCommand

Replies are listed 'Best First'.
Re: TK::ExecuteCommand by davidj (Priest) on Jun 24, 2004 at 10:53 UTC
A few comments: First, regarding your program's output. Proc::Killfam.pm has the following lines (14 and 15): `# We need Proc::ProcessTable to work properly. If it's not available, # then we act like Perl's builtin kill() command.` [download] The first line of your output is simply an FYI warning. Thus, it is not the reason your program is not working. Rather, the second line `Can't call method "ExecuteCommand" on an undefined value at D:\...\exe +c.pl line 1.` [download] which has nothing to do with the first line, is why it fails. There is a coding error in the example you are trying to run. Since you haven't posted it, we cannot tell you what it might be. Second, Proc::ProcessTable does work under Windows, but you need to have cygwin install. The following is from the Readme file bundled with the Proc::ProcessTable module: "Please note that the windows port requires the Cygwin environment to work". If you want cygwin, you can get it here Third, from the Tk::ExecuteCommand manpage, the primary purpose of Tk::ExecuteCommand is to provide non-blocking program execution. Yet it still provides the functionality you want. That is, you can still use it if you want to redirect program output to a window. However, it will only work with output that typically goes to a console window (like the dos dir command). Try the following code (modified from the manpage): `use Tk; use Tk::ExecuteCommand; my $mw = MainWindow->new; $ec = $mw->ExecuteCommand( -command => '', -entryWidth => 50, -height => 10, -label => '', -text => 'Execute', )->pack; $ec->configure(-command => 'dir'); $ec->execute_command; $ec->bell; $ec->update; MainLoop;` [download] Or, you can take that part of Tk::ExecuteCommand that handles the output redirection and use it as a basis for a custom-made solution. davidj	[reply] [d/l] [select]
Re^2: TK::ExecuteCommand by vikee (Sexton) on Jun 24, 2004 at 11:33 UTC
here is the code, it is from the book mastering perl/tk. also i chaned the command, cause this one here is for unix. Read more... (5 kB) Edit by BazB: remove pre tags around text and add readmore tags around code.	[reply] [d/l]
Re^3: TK::ExecuteCommand by davidj (Priest) on Jun 24, 2004 at 12:26 UTC
If this is the code you tried to run as D:\...\exec.pl, then that is your problem. This code is the module definition for Tk::ExecuteCommand. It cannot be executed by itself. Forget about trying to run it. If you are on windows, use ppm to install the module from one of the repositories and test it with the example code I have already posted. davidj	[reply]
Re^4: TK::ExecuteCommand by vikee (Sexton) on Jun 24, 2004 at 13:02 UTC