I need to read a file, the file has a table in it. From the table I need to choose all the rows for which AVG 2 value is greater than 0.050 and write them on to a separate file. Please help me with the TCL script for this.
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' \
>... (2 Replies)
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"
... (0 Replies)
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... (0 Replies)
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 `('... (1 Reply)
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"
... (0 Replies)
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} {
... (2 Replies)
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... (2 Replies)
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... (1 Reply)
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... (1 Reply)
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 =... (1 Reply)
Discussion started by: kshitij
1 Replies
LEARN ABOUT SUSE
gtk2::table
Gtk2::Table(3) User Contributed Perl Documentation Gtk2::Table(3)NAME
Gtk2::Table
HIERARCHY
Glib::Object
+----Glib::InitiallyUnowned
+----Gtk2::Object
+----Gtk2::Widget
+----Gtk2::Container
+----Gtk2::Table
INTERFACES
Glib::Object::_Unregistered::AtkImplementorIface
Gtk2::Buildable
METHODS
widget = Gtk2::Table->new ($rows, $columns, $homogeneous=FALSE)
o $rows (integer)
o $columns (integer)
o $homogeneous (boolean)
$table->attach ($child, $left_attach, $right_attach, $top_attach, $bottom_attach, $xoptions, $yoptions, $xpadding, $ypadding)
o $child (Gtk2::Widget)
o $left_attach (integer)
o $right_attach (integer)
o $top_attach (integer)
o $bottom_attach (integer)
o $xoptions (Gtk2::AttachOptions)
o $yoptions (Gtk2::AttachOptions)
o $xpadding (integer)
o $ypadding (integer)
$table->attach_defaults ($widget, $left_attach, $right_attach, $top_attach, $bottom_attach)
o $widget (Gtk2::Widget)
o $left_attach (integer)
o $right_attach (integer)
o $top_attach (integer)
o $bottom_attach (integer)
integer = $table->get_col_spacing ($column)
o $column (integer)
$table->set_col_spacing ($column, $spacing)
o $column (integer)
o $spacing (integer)
$table->set_col_spacings ($spacing)
o $spacing (integer)
integer = $table->get_default_col_spacing
integer = $table->get_default_row_spacing
boolean = $table->get_homogeneous
$table->set_homogeneous ($homogeneous)
o $homogeneous (boolean)
$table->resize ($rows, $columns)
o $rows (integer)
o $columns (integer)
integer = $table->get_row_spacing ($row)
o $row (integer)
$table->set_row_spacing ($row, $spacing)
o $row (integer)
o $spacing (integer)
$table->set_row_spacings ($spacing)
o $spacing (integer)
PROPERTIES
'column-spacing' (Glib::UInt : readable / writable / private)
The amount of space between two consecutive columns
'homogeneous' (boolean : readable / writable / private)
If TRUE, the table cells are all the same width/height
'n-columns' (Glib::UInt : readable / writable / private)
The number of columns in the table
'n-rows' (Glib::UInt : readable / writable / private)
The number of rows in the table
'row-spacing' (Glib::UInt : readable / writable / private)
The amount of space between two consecutive rows
ENUMS AND FLAGS
flags Gtk2::AttachOptions
o 'expand' / 'GTK_EXPAND'
o 'shrink' / 'GTK_SHRINK'
o 'fill' / 'GTK_FILL'
SEE ALSO
Gtk2, Glib::Object, Glib::InitiallyUnowned, Gtk2::Object, Gtk2::Widget, Gtk2::Container
COPYRIGHT
Copyright (C) 2003-2008 by the gtk2-perl team.
This software is licensed under the LGPL. See Gtk2 for a full notice.
perl v5.12.1 2010-07-05 Gtk2::Table(3)