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")), "
";

Explain perl one-liner?

913

---

In CPAN module, name an instance you use.

915

---

Write a program that shows the distinction between child and parent process?

887

---

Why do you use Perl?

929

---

what are steps to do to lock the sony ericsson mobile with password?

2155

---

How to code in perl to implement the tail function in unix?

889

---

what are the three groups involved in information sharing?

841

---

What is 'rollback' command in perl?

912

---

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

974

---

Mention what is cpan?

967

---

What is posix in perl?

885

---

Elaborate on perl bite-wise operators.

856

---

What syntax is used for grep() function?

1102

---

How to add elements in a hash in perl?

867

---

You want to open and read data files with perl. How would you do that?

847

---