Answer / vipul dalwala

======= PERL SCRIPT (sortword.pl) =========

#!/usr/bin/perl

my $word = $ARGV[0];
$sortword = "";
$lastchar = "";

while($word =~ /(.)/g)
{
$lastchar = $1;
if( $sortword ) {
$flag = "";
$newsortword = "";
while($sortword =~ /(.)/g) {
if( $lastchar gt $1 || $flag
eq "charcovered") {

$newsortword =
$newsortword.$1;
$flag = "greater" if($flag
ne "charcovered")
}
else {
$newsortword =
$newsortword.$lastchar.$1;
$flag = "charcovered";
}
}
if( $flag ne "charcovered" ) {
$newsortword =
$newsortword.$lastchar;
}

$sortword = $newsortword;
}
else {
$sortword = $lastchar;
}
}

print $sortword."\n";


======= PERL SCRIPT =========

Run the script as:

sortword.pl "system"

Answer / 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 are some of the key features of objects in perl?

1 Answers  

---

How can arrays be tied?

1 Answers  

---

Differentiate between use and require, my and local, for and foreach and exec and system

1 Answers  

---

What is the importance of perl warnings?

1 Answers  

---

List the operator used in Perl?

1 Answers  

---

How can you replace the characters from a string and save the number of replacements?

1 Answers  

---

What is “grep” function in perl?

1 Answers  

---

Differentiate use and require?

1 Answers  

---

write a script to check whether user enter a value is a leap year or not?

3 Answers   Oracle, Persistent, ViPrak,

---

What is hash?

1 Answers  

---

How to do comment in perl?

1 Answers  

---

how to install a package in perl ????

2 Answers  

---