Hi Belajesuri,
Thanks alot for your Perl code and to the others also I would like to say thanks so much but I need a Perl script.
I try to reformat your code from one-liners to the common way of Perl language and it works.
My next question is how I can set the header "Linux" and "UNIX" as variables instead of static values?. so when the other line comes, the header will be added also as well as the value of CPU anf MEM (e.g. )?.
so the result will be = NAME TIME Linux UNIX WINDOWS.. so on
---------- Post updated at 10:19 PM ---------- Previous update was at 04:17 PM ----------
Hi Balajesuri,
I've made the script based on your original code and the desired output already oke. But I think my script is still ugly. may be you have a good solution for this?.
A file content have
1 1:-0.289433 2:0.833778 3:0.314471 4:-0.289433 5:-0.81876 6:-0.456693 7:-0.17511 8:-0.644555 9:-0.00666341 10:-1.13603
I will like to have that column into row with numbers to be printed (red color) only after colon
output shud be like that
-0.289433... (1 Reply)
hi,
I have a requirement where in I read the values from a file using awk. The resulting data should be converted into row format from column format.
For ex: My log file login.lst contains the following
SERVER1 DB1
SERVER2 DB2
SERVER3 DB3
SERVER4 DB4
I use awk to grep only the server... (6 Replies)
Getting tired of cut-and-paste...so I thought I would post a question.
how do I change this column output to a single row?
from this:
# vgdisplay -v /dev/vgeva05 | grep dsk | awk '{print $3}'
/dev/dsk/c6t0d5
/dev/dsk/c11t0d5
/dev/dsk/c15t0d5
/dev/dsk/c18t0d5
/dev/dsk/c7t0d5... (8 Replies)
Hi,
I have a file like this
50 1 2 1374438
50 1 2 1682957
50 5 2 1453574
50 10 2 1985890
100 1 2 737307
100 5 2 1660204
100 10 2 2148483
and I want to convert this by... (1 Reply)
Hi all!
I have this kind of output:
a1|b1|c1|d1|e1
a2|b2|c2
a3|b3|c3|d3
I would like to transpose columns d and e (when they exist) in column c, and under the row where they come from.
Then copying the beginning of the row.
In order to obtain:
a1|b1|c1
a1|b1|d1
a1|b1|e1
a2|b2|c2... (1 Reply)
Hi Folks,
I am using db2 command -> db2 list tablespace show detail
Tablespace ID = 10
Name = TSCDDHLMSUM
Type = Database managed space
Contents = All permanent data.... (5 Replies)
Hi
FileA.txt
E_TIM 16,
ETE 15,
EOND 26,
EEC 81,
E_1 un,
E_2 un,
E_3 un,
E_4 284,
E_TIM 17,
ETE 15,
EOND 29,
EEC 82,
E_1 un,
E_2 un,
E_3 un,
E_4 249, (6 Replies)
Discussion started by: asavaliya
6 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)