Re^5: Perl tk - How to integrate external scripts

By leave it alone I mean that you leave the statistical routine unchanged (as it worked before) in a separate file called 'yourstatisticalroutine.pl' (or whatever name it has now). Execute this script as an external system process by the system command I mentioned then operate on the file to which its output was is redirected. The script you supplied does the opposite: the statistical routine is copy pasted and I see no 'system' command at all. Now your routine tries to get the file name from the argument list of the main program (which is probably empty). If you choose to do it this way the -command bind should look something like this:

$mw-> Button (-text =>'Get Statistics',
-command =>[ \&get_statistics, 'datafile.name' ]
)->p
+lace(-x=>320, -y=>35);
[download]

In this way your get_statistics routine will be called with the argument 'datafile.name'. You should store your data to be analyzed in this file.

Comment on Re^5: Perl tk - How to integrate external scripts Download Code

Replies are listed 'Best First'.
Re^6: Perl tk - How to integrate external scripts by Giorgio C (Novice) on Jan 30, 2012 at 12:03 UTC
Thanks but in this way i need to know before what is "datafile.name". I wanted instead that this would be the $open variable called with the get_open( that show all my directories). chosed a file with get open in my dir and on that working the get statistic command: get_open => $open => get_statistics on $open Is there a really way ?	[reply]
Re^7: Perl tk - How to integrate external scripts by chessgui (Scribe) on Jan 30, 2012 at 13:45 UTC
Make $open a global variable and use it instead of 'datafile.name': `-command => [ \&get_statistics , $open ]` [download] Variables are global by default - if you don't understand this just take care never to declare it with 'my' ( don't write "my $open='foo';" just "$open='foo';" ). Set the value for $open with your file selection widget and the bind will call the get_statistics routine with the appropriate value ('value of the $open global variable at the time of the button click') as an argument for you.	[reply] [d/l]