Answer Posted / 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"

Comment on the scope of variables in perl.

937

---

What can be done for efficient parameter passing in perl?

900

---

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

1061

---

What are perl strings?

899

---

What is perl dbi?

899

---

What are the different ways to run cgi?

968

---

What is Perl?

1015

---

How to start perl in interactive mode?

1063

---

What are the different types of perl operators?

1090

---

How will you access an element of a perl array?

953

---

How to create a package?

962

---

How to read a single line from a file in perl?

975

---

Explain what is lvalue?

1031

---

How many types of primary data structures in Perl and what do they mean?

1421

---

How to do comment in perl?

961

---