how to access the mid element in an array in perl?
Printable View
how to access the mid element in an array in perl?
sorry i don't have any knowledge about pearl this time
Hi Bvani,
I think, You have posted your query in a wrong forum. Better, post it in appropriate forum.
Regards,
Ganesh
Hi,
I am sorry. It was my mistake. I though this is a QTP forum
Regards,
Ganesh
its ok no probs it happens to every one sometimes.....
ok guys here is my answer which i have given in one of my interview... but the interviewer was not satisfied he was asking me if there were any direct funtions to do the same.
step one
sort the array in the ascending order
step two
obtain the first and last values to variables
$low = $a[0];
$high = $#a;
step three
add the first and last element and divide by 2 and obtain the int() value of the result
$mid = int(($low + $high)/2);
step four
$a[$mid] is the middle element of the array....
anyways it would be helpful if any one can give me any other answers or any reference for the same..
thanks in advance
#!/usr/bin/perl
use strict;
my @array=qw(hello World Show must go on);
my $count=scalar @array;
print "\n Count :$count";
print "\n $array[($count/2)]";
exit;
Ans is:
Count :6
Show
Hi
you can do the same thing by this way also
#!/usr/bin/perl
use strict;
my @array=qw(hello World Show must go on);
print "\n $array[(($#array+1)/2)]";
exit;
[QUOTE=amitbhosale;25365]Hi
you can do the same thing by this way also
#!/usr/bin/perl
use strict;
my @array=qw(hello World Show must go on);
print "\n $array[(($#array+1)/2)]";
exit;[/QUOTE]
We can also use like this,
print $array[(scalar @array)/2];