my @array=('data1','data2');
my @array1=('data1','data2');
my ($i,$k);

$i=7;
$k=7;

while($i){
$array [++$#array] = 'ree';
$i--;
print "@array";
}

while($k){
push(@array1,'ree');
$k--;
print "@array1";
}


Are these two while loop are doing the same functionality ?
What may be the difference?

Answers were Sorted based on User's Feedback



my @array=('data1','data2'); my @array1=('data1','data2'); ..

Answer / neo

Both are same

Is This Answer Correct ?    2 Yes 1 No

my @array=('data1','data2'); my @array1=('data1','data2'); ..

Answer / sugumar

Both are absolutely same in giving the output.
but in first method "$array [++$#array] = 'ree';"
we are preincrementing the array index manually and assigning the latest index to 'ree'; (SLower since we doing it as manual)

Where as in the second method, push is an array function where we need not care about index. it automatically increases the index value for the array. (Faster)

Both give same output as

data1 data2 ree
data1 data2 ree ree
data1 data2 ree ree ree
data1 data2 ree ree ree ree
data1 data2 ree ree ree ree ree
data1 data2 ree ree ree ree ree ree
data1 data2 ree ree ree ree ree ree ree


VALUES FOR K
data1 data2 ree
data1 data2 ree ree
data1 data2 ree ree ree
data1 data2 ree ree ree ree
data1 data2 ree ree ree ree ree
data1 data2 ree ree ree ree ree ree
data1 data2 ree ree ree ree ree ree ree

Is This Answer Correct ?    1 Yes 0 No

Post New Answer

More CGI Perl Interview Questions

What does the q{ } operator do?

0 Answers  


Why do you program in Perl?

4 Answers  


Explain the execution of a program in perl.

0 Answers  


What is the difference between localtime() and gmtime() functions?

0 Answers  


You want to concatenate strings with perl. How would you do that?

0 Answers  


How many loop control keywords are there in perl?

0 Answers  


What is the use of command “use strict”?

0 Answers  


Explain goto name?

0 Answers  


explain the various functions/directives in perl that allow you to include/import a module. Also, state the differences between them.

0 Answers  


Define print() function in perl?

0 Answers  


How do I do fill_in_the_blank for each file in a directory?

0 Answers  


Explain use of ‘my’ keyword in perl?

0 Answers  


Categories