Answer Posted / umesh

$value = "system";
@SortedArray = split('',$value);
$strlength = @SortedArray;
print "Current sort @SortedArray
";
$swapped = 0;
for($i=0; $i < $strlength; $i++){
for (my $j = 0; $j < $strlength-1-$i; $j++) {
if($SortedArray[$j] gt $SortedArray[$j+1]){
$tmp = $SortedArray[$j];
$SortedArray[$j] = $SortedArray[$j+1];
$SortedArray[$j+1] = $tmp;
$swapped =1;
}
}
if ($swapped) {
next;
}
}

print join('', split(' ', "@SortedArray")), "
";

What is the use of –w?

966

---

Enlist the advantages of using c over perl?

965

---

What is the use of strict?

999

---

Write a program to show the process of spawning a child process

902

---

What are arrays in perl?

1016

---

Suppose an array contains @arraycontent=(‘ab’, ‘cd’, ‘ef’, ‘gh’). How to print all the contents of the given array?

1015

---

Write a program to decode the data in the form using cgi programming

1097

---

What are the different ways to run cgi?

1010

---

What is boolean context?

1046

---

Explain chop?

966

---

Mention the difference between die and exit in Perl?

1170

---

Explain regular expression in perl?

1015

---

Which of these is a difference between Perl and C++ ?

1085

---

What does `new $cur->{LINK}' do? (Assume the current package has no new() function of its own.)

984

---

What is qq (double q)operator in perl?

1060

---