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 purpose of _package_ literal?

947

---

What is a chomp() function in perl?

960

---

How the interpreter is used in Perl?

898

---

Why -w argument is used with perl programs?

915

---

How to read a directory in perl?

958

---

What does perl do in linux?

887

---

What are prefix dereferencer? List them.

919

---

What are the different types of perl operators?

976

---

What is the main function of cookie server?

1005

---

What can be done for efficient parameter passing in perl?

832

---

Define perl scripting?

930

---

How to print escaping characters inside a string in perl?

844

---

What is the use of -w, -t and strict in Perl?

941

---

What is the importance of perl warnings? How do you turn them on?

991

---

What are the advantages of perl programming?

945

---