[ro0t]

Hello Experts,

I am an ASIC tester and i have been asked to do something with Perl/Tk
so I would appreciate it, if I can get some help into this.I have done bits of it but I am stuck into one particular area. So here is the meat :

- I have been given lots of perl scripts that test verilog code. I didn't write the scripts, I simply open a terminal "perl scriptname.pl" and after 15 - 30 minutes i get a "testname.log".This is what is vital for me the log. I want to insert this thing into a gui, but to manage lots of scripts
running in parallel. So i though if i could make something like cells with rows and collumns, a widget to select the perl script, start/stop button and a status label would be perfect. I could load up many test cases and when they are done I could see the results.

Here is how I visualize it:


Test case _ _ Time Started _ _Status_ __ _ Start/Stop _ _View
My_case _____Today,12:23 ___ Running
My_case2 ___date,time ________Failed


and here are my problems.

1) How can i make a table that will add
extra rows each time another file is added.This should be increasing dynamically.

2) Can I give behaviour to a button to change label. Something like onclick() -label=>"Stop", this is for the start stop button.

3) I know how to run a perl script through
perl and grab its output, but how do I stop it ? Do i kill the job ?

Any ideas or recommendations? I haven't found any widget that can do
the cells and colums....

If you can point me to any samples or relevant topics I would be
greatful.


Thank you kindly
Vassili

[perleo]

iam not really sure what your looking for but to view a file..

use Tk;

$mw = MainWindow->new();

$text = $mw->Text()->pack(-pady => '10', -padx => '10');

open(FILE, "FILE PATH) or die "Cant open file: $!";
@file = <FILE>;

$text -> insert('end', @file);

MainLoop;

That will print the contents of the text file into a box.

[rob2132]

Originally Posted by ro0t

Hello Experts,

I am an ASIC tester and i have been asked to do something with Perl/Tk
so I would appreciate it, if I can get some help into this.I have done bits of it but I am stuck into one particular area. So here is the meat :

- I have been given lots of perl scripts that test verilog code. I didn't write the scripts, I simply open a terminal "perl scriptname.pl" and after 15 - 30 minutes i get a "testname.log".This is what is vital for me the log. I want to insert this thing into a gui, but to manage lots of scripts
running in parallel. So i though if i could make something like cells with rows and collumns, a widget to select the perl script, start/stop button and a status label would be perfect. I could load up many test cases and when they are done I could see the results.

Here is how I visualize it:


Test case _ _ Time Started _ _Status_ __ _ Start/Stop _ _View
My_case _____Today,12:23 ___ Running
My_case2 ___date,time ________Failed


and here are my problems.

1) How can i make a table that will add
extra rows each time another file is added.This should be increasing dynamically.

2) Can I give behaviour to a button to change label. Something like onclick() -label=>"Stop", this is for the start stop button.

3) I know how to run a perl script through
perl and grab its output, but how do I stop it ? Do i kill the job ?

Any ideas or recommendations? I haven't found any widget that can do
the cells and colums....

If you can point me to any samples or relevant topics I would be
greatful.


Thank you kindly
Vassili

If you're still looking for help, let me know. In the meantime, there's a couple of very good books regarding Perl/Tk. Two that come to mind are Advanced Perl Programming (Maybe a bit extreme for the task you are looking to do, but a great book and it covers a lot about Perl/Tk), and the other, of course, being Programming for Perl/Tk (Both by O'Reilly & Assoc and both likely on Safari).