Help with TCL script

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

TCL script help

Hi All , I am having a file as stated below File 1 chain = chan6 group = grp0 input = '/pad_pc10' output = '/pad_pb7' length = 9900 chain = chan2 group = grp0 input = '/pad_pa4' output = '/pad_pb12' length = 10000 chain = chan7 group = grp0 input = '/pad_pb2' output =...

2. Shell Programming and Scripting

Help using regexp in a TCL script ??

In a tcl script I need to find a way of reading a file, and looking for a phrase ("set myvariable") and putting the word following that into a variable. I've used a file open, and a while loop with gets to read each line from the file into a variable, and using regexp searched for the item. I'm...

3. Programming

Csh script and tcl

I have csh script and call tck command but it do nothing. can you help me? I only can see it echo #!/bin/csh -f set mypath = `pwd` echo $mypath if ($mypath =~ *PLL*) then echo "source ../PreBoot.qel" else if ($mypath !~ *PLL*) then echo "source ../hdfuse.qel" endif if i remove...

4. Shell Programming and Scripting

Split in tcl script

Hi All, I have a string re_em="NODE_NAME=ABCDEF;NODE_TYPE=ghijkl;CIRCLE=jkl;Serving_Circle=abcdefghthjk;DOMAIN_TYPE=1234;REGION=12345;ZONE=12334;SOURCE_TYPE=dhfkdkfjdjf" I want to split this string and convert it into array so that i can easily access any value like NODE_NAME or...

5. UNIX for Dummies Questions & Answers

What is wrong with the the tcl script

Hi All, I am searching for two string in the .log file The strings are Active Flop-Maps "0 0 1 0 1" 1 and Ouput-Maps " 0 0 1 1 0" 2 It should search in the file ignoring white spaces .Tell me what is wrong with this script. The tcl script is as follows proc proc2 {arglist} { ...

6. Programming

Tcl script

Dear Users I'm struck by while the following tcl script. foreach l { set w($l) {} set fsum 0 foreach ftemp $f($l) { set fsum lappend w($l) $fsum } } It shows me error as "missing operand at _@_ in expression "0.10308400000000001 + _@_* 0.4 * 1" ...

7. Shell Programming and Scripting

Syntax error calling TCL script from shell script

hello everyone i am beginner on shell scripting .and i am working on my project work on ad hoc network i wrote a batch (.sh) to do a looping and execute a tcl script i wrote before in each iteration ..but i got this problem " syntax error near unexpected token `('...

8. Shell Programming and Scripting

expect TCL script

Hello, I write a TCL script for Expect/ Telnet. I want to send command to the telnet server. But I want to close after the command is sent. Anybody know which command can flush the expect so I can sure the command is sent to the telnet server??? EX: send "./command1\r" close...

9. Shell Programming and Scripting

TCL TK SCRIPT Help Please

Hi Seniors, Need a help from your end. I am new to scripting and still in the learning process of scripting. I have written a script on TCL TK. This is the script that i have written. if { $EssEntityType == "rss_user" && $EssAction == "Insert" } { puts $fp " Ess Action :$EssAction" ...

10. Shell Programming and Scripting

Sed Script in TCL

Hi, I am trying to run the following in my tcl script--- set ul *//;s/*$//;/^$/d;s/^/"20080401 09:43:08.770798,/;s/$/"/;s/,/","/g} | \ /bin/awk -F, {{print $1","$2","$3","$4","$5}} | \ sed '1i\ REPORT.TIMESTAMP.s,REPORT.CUSTOMER.s,REPORT.CODE.s,REPORT.A_CODE.s,REPORT.DESCRIPTION.s' \ >...

LEARN ABOUT DEBIAN

tk::table

Table(3pm)						User Contributed Perl Documentation						Table(3pm)

NAME

       Tk::Table - Scrollable 2 dimensional table of Tk widgets

SYNOPSIS

	 use Tk::Table;

	 $table = $parent->Table(-rows => number,
				 -columns => number,
				 -scrollbars => anchor,
				 -fixedrows => number,
				 -fixedcolumns => number,
				 -takefocus => boolean);

	 $widget = $table->Button(...);

	 $old = $table->put($row,$col,$widget);
	 $old = $table->put($row,$col,"Text");	# simple Label
	 $widget = $table->get($row,$col);

	 $cols = $table->totalColumns;
	 $rows = $table->totalRows;

	 $table->see($widget);
	 $table->see($row,$col);

	 ($row,$col) = $table->Posn($widget);

DESCRIPTION

       Tk::Table is an all-perl widget/geometry manager which allows a two dimensional table of arbitary perl/Tk widgets to be displayed.

       Entries in the Table are simply ordinary perl/Tk widgets. They should be created with the Table as their parent. Widgets are positioned in
       the table using:

	$table->put($row,$col,$widget)

       If $widget is not a reference it is treated as a string, and a Lable widget is created with the string as its text.

       All the widgets in each column are set to the same width - the requested width of the widest widget in the column.  Likewise, all the
       widgets in each row are set to the same height - the requested height of the tallest widget in the column.

       A number of rows and/or columns can be marked as 'fixed' - and so can serve as 'headings' for the remainder the rows which are scrollable.

       The requested size of the table as a whole is such that the number of rows specified by -rows (default 10), and number of columns specified
       by -columns (default 10) can be displayed.

       If the Table is told it can take the keyboard focus then cursor and scroll keys scroll the displayed widgets.

       The Table will create and manage its own scrollbars if requested via -scrollbars.

       The table can be emptied using

	$table->clear

       the widgets which were in the table are destroyed.

       The Tk::Table widget is derived from a Tk::Frame, so inherits all its configure options.

BUGS 
/ Snags / Possible enhancements
       o   Very large Tables consume a lot of X windows.

       o   No equivalent of pack's -anchor/-pad etc. options

SEE ALSO

       Tk::grid, Tk::HList, Tk::TableMatrix, Tk::MListbox, Tk::Columns

perl v5.14.2							    2010-05-29								Table(3pm)

Shell Programming and Scripting