Hi All,
I am having trouble through, I am reading the input from tab delimited file containing several records,
e.g.
line1 field1 field2 field3 so on..
line2 field1 field2 field3 so on..
..
..
on the basis of certain fields for each record in input file, I have to retrieve... (1 Reply)
How do I grep/check the on-hand value on the second line of show_prod script below? In this case it's a "3".
So if it's > 0, then run_this, otherwise, quit.
> ./show_prod
Product Status Onhand Price
shoe OK 3 1.1 (6 Replies)
Hi Guys,
Input.txt
L194 A -118.2
L194 B -115.1
L194 C -118.7
L196 A 0
L196 C 0
L197 A -111.2
L197 B -118.9
L197 C -119.9
L199 A -120.4
L199 B -119.9 ... (2 Replies)
HI
I have input file A.txt
X
Y
Z
File B.txt
1 X 10 AAA 11123
2 Y 22 PlD 4563
3 Z 55 PlD 54645
4 Z 66 PlD 15698
5 F 44 PlD 154798
6 C 55 PlD 12554
7 Z 88 PlD 23265
8 C 99 PlD 151654
9 C 11 PlD 21546546
I need New File C.txt (1 Reply)
Base of last two column i want to change may data
if Last two Column have A and C then Copy Column $4 to Column $3.
Input :-
DD142 0_1 DD142_A DD142_B A B
DD142 1_1 DD142_B DD142_C B C
DD142 2_1 DD142_A DD142_C A C
DD142 3_1 DD142_A A
DD142 3_2 DD142_A A
DD142 4_1 DD142_B B ... (4 Replies)
Input :-
Column to Row
Time CT 1 2 3
17:45 X 10 15 20
18:00 X 15 20 30
18:15 X 10 10 10
18:30 X 5 5 5
17:45 Y 10 15 20
18:00 Y 15 20 30
18:15 Y 10 10 10
18:30 Y 5 5 5
output:-
Time P X Y
17:45 1 10 10
18:00 1 15 15
18:15 1 10 10 (2 Replies)
Discussion started by: pareshkp
2 Replies
LEARN ABOUT CENTOS
tk::table
Table(3) User Contributed Perl Documentation Table(3)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.16.3 2014-06-10 Table(3)