Help in perl script Array.

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl script to verify that a value is present in an array (list)

I have 2 files , i need compare both files field by field, and in the fourth field some value will be interchaged and some value will be **. ex: file1 john|0.0|4|**:25;JP:50;UY:25 file2 john|0.0|4|JP:50;**:25;UY:25

2. Shell Programming and Scripting

Number of arguments to array - Perl Script

I have the following proc. proc get_add {arg1 arg2 arg3 arg4 arg 5 .. ... arg N } { } i need to count the number of arguments and also i need those arguments stored in an array. please help out ---------- Post updated at 06:33 PM ---------- Previous update was at 05:30 PM ---------- ...

3. Shell Programming and Scripting

perl script :making array

Hi , i have a perl script which takes 'csv; file as input parameter and performs some tasks. CSV file format : MAGENTF,AGENTF8,mahfr001,tksfr01,. ./.profile 1>/dev/null 2>&1;ps -fe|grep 'gn1avm_agent -n AGENTF8'|grep gn1avm_agent|tr -s '' ''|cut -d ' ' -f 3|xargs kill -9,,. ./.profile...

4. UNIX and Linux Applications

SQL database call into Multidimensional Array using Perl Script

#!/usr/local/bin/perl use DBI; use File::Copy; use Time::Local; use Data::Dumper; -Comments Describing what I'm doing-------------- -I'm pulling information from a database that has an ID and Name. They are separated by a space and I'm trying to load them into a multidimensional array so as...

5. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am...

6. Shell Programming and Scripting

How to get list of user into an array in perl script

Hi, cut -d: -f1,3 /etc/group >rpt.out I have a doubt in perl. right i am getting list of group user id into rpt.out file. instead i need to store it as an array in perl script. could you please tell me how can i get list of user into an array in perl script.. thanks in advance.

7. Shell Programming and Scripting

How to export an array to perl script?

hi all...... i want to use an array ,declared in bash, in embedded perl script. is there any way to export whole array so that i can use it '$ENV{}' or something.. thanx in advance!! regards, prayush

8. Shell Programming and Scripting

Can we pass an array of strings from a Perl Program to a Shell Script?

Hi Folks, The subject is my question: Can we pass an array of strings from a Perl Program to a Shell Script? Please provide some sample code. Thanks ---------- Post updated at 11:52 PM ---------- Previous update was at 11:43 PM ---------- I got it. Its here:...

9. Shell Programming and Scripting

Passing a file handler and an array from Perl to Shell Script

Hi there, I am trying to call a shell script from a Perl script. here is the code: @args = ("sh", "someshellprg.sh", "a file handler", "an array"); system(@args) == 0 or die "system @args failed: $?"; in the shell program, I examine if the arguments exits using: if then echo...

10. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >...

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)

UNIX for Advanced & Expert Users