...
Does the print statement only work assuming that the ID no. is 4 digits?...
It's actually the plain old "printf" function borrowed from the C programming language. If you specify the format "%nd" where "n" is an integer, then:
(a) if the number to be printed has "n" or less number of digits, then it is printed using "n" columns, left-padded with blank spaces if necessary.
(b) if the number to be printed has "n+1" or more number of digits, then it uses as many columns as there are digits, to print the number. That is, it does not chop off the number.
An example is given below:
Code:
$
$
$ perl -e 'foreach $i (0..10) { $x += 10**$i+1; printf ("Formatted Number =>|%6d|<=\n", $x) }'
Formatted Number =>| 2|<=
Formatted Number =>| 13|<=
Formatted Number =>| 114|<=
Formatted Number =>| 1115|<=
Formatted Number =>| 11116|<=
Formatted Number =>|111117|<=
Formatted Number =>|1111118|<=
Formatted Number =>|11111119|<=
Formatted Number =>|111111120|<=
Formatted Number =>|1111111121|<=
Formatted Number =>|11111111122|<=
$
$
$x is just a number whose magnitude increases rapidly per iteration of the "foreach" loop.
As you can see in the first six cases, the printf function uses 6 columns to display the number ($x) as long as it could - right-justifying it wherever necessary. If the number of digits is more than 6, printf displays the number entirely, using as many columns as required. It does not chop off the number, thereby preserving all information.
Quote:
Also how would I traverse and operate on only the second element of each array reference.
x[0] = "1234", "Wow",
x[1] = "2222", "Yep",
I want to traverse through this and manipulate "Wow" and "Yep" and then either insert the newly manipulated back into the original array 'x' replacing the old or create an entire new array with the newly manipulated data along with the original ID no.
...
Since I am unable to figure out the type of "manipulation" you want to do, I'll assume you want to change the case of "Wow" and "Yep" to all uppercase.
Here's a short script that does that -
Code:
$
$
$ perl -le 'push @x, [1234, Wow]; # add the first element
push @x, [2222, Yep]; # add the second element
print "Array before manipulation:";
foreach $i (@x) {
printf ("Element => [ %5d, %s ]\n", $i->[0], $i->[1]);
}
# Now manipulate the array
foreach $i (@x) { # loop through the array
$i->[1] = uc $i->[1]; # change the 2nd element to upper case
}
print "=" x 40;
print "Array after manipulation:";
foreach $i (@x) {
printf ("Element => [ %5d, %s ]\n", $i->[0], $i->[1]);
}
'
Array before manipulation:
Element => [ 1234, Wow ]
Element => [ 2222, Yep ]
========================================
Array after manipulation:
Element => [ 1234, WOW ]
Element => [ 2222, YEP ]
$
$
$
I am learning about bash system variables, such as $ , @ and #.
I have this piece of script implementing an array and it is doing its job just fine.
This is not the only array I will be using.
Just for ease of maintenance and more coding I would like to have the arrays in two dimensional... (4 Replies)
Hello,
Could someone please suggest if there is a way to pass an perl array(pass @v_array) to SQL as in below eg :
#!/usr/bin/perl
@v_array = (1,2,4,5,6,8);
$db_userid = 'ni71/ni711';
$bufTPO = qx{ sqlplus -s << EOF
$db_userid
set verify off
set feedback off
set... (1 Reply)
Hi,
I am in the need of doing a bulk insert via :
SQL - INSERT INTO <table> (SELECT..)
OR
PLSQL Block - FORALL i IN 1 .. count INSERT INTO <table>(arrayname(i))
I have a 2D array in my perl code which has the rows to be bulk inserted.
Is there a way to bind the 2D array to the SQL... (4 Replies)
Hi,
I was trying to process a file with the help of awk. I want to first display all the rows that contains 01 and at the end of processing I have to print some portion of all the lines. like below.
Output expected: (2 Replies)
i have a file,like
1 3
4 5
6 7
8 9
i want to save it into an array.
and then i want to get every element, because i want to use them to calculate. for example: i want to calculate 1 + 3.
but i cannot reach my goal.
open (FILE, "<", "number");
my @arr;
while (<FILE>){
chomp;... (1 Reply)
I'm currently working with dozens of FASTA files, and I'm tired of having to manually change the filename in my Perl script.
I'm trying to write a simple Perl script that'll create a 2-dimensional array containing the name of the folders and its contents.
For example, I would like the output... (6 Replies)
Hi! I need to make dynamic multidimensional arrays using the vector class. I found in this page How to dynamically create a two dimensional array? - Microsoft: Visual C++ FAQ - Tek-Tips the way to do it in 2D, and now i'm trying to expand it to 3D but i don't understand how is the operator working,... (0 Replies)
In a single dim. awk array, we can use :
<index> in <array name>
to determine whether a particualar index exists in the array or not.
Is there a way to achieve this in a awk multi dim. array ? (4 Replies)
Hello Experts,,
Can anybody give me a brief idea what is following bold letter statement is for!!
what is the term called so that I can google for it..
It seems to be an array inside another array..
awk'
/TXADDR/ { txaddr=$NF } ##understood
/TXDATA/ { txdata]=$NF... (1 Reply)
i'm trying to open a file with three or more columns and an undetermined, but finite number of rows. I want to define an array for each row with each element of the row as a sub array. The columns are separated by tabs or spaces.
Here's the file:
12x3.12z34b.342sd3.sds 454.23.23.232 ... (9 Replies)
