Answer Posted / narayan singh

print("Enter the no. to check for Palindrome : ");
$no = <STDIN>;
chop($no);

$i = 0;

# Store into a array
while($no != 0)
{
@array[$i] = $no % 10;
$no = int($no / 10);
$i++;
}

$i--;
$j=0;
$flag = "true";

# Check for Palindrome
while( ($flag eq "true" )&& ( $j < @array/2) ){
if (@array[$j] != @array[$i])
{
$flag = "false"
}
$i--;
$j++;
}

# Print the result
if( $flag eq "true")
{
print("It is a Palindrome\n");
}
else
{
print("It is NOT a Palindrome\n");
}

What is q (single q) operator in perl?

1178

---

What happens to objects lost in "unreachable" memory, such as the object returned by Ob->new() in `{ my $ap; $ap = [ Ob->new(), $ap ]; }' ?

1040

---

What is confess function in perl?

997

---

Explain strftime() function in perl?

988

---

How to create a package?

1003

---

What is boolean context?

1052

---

What are the various uses of perl?

1093

---

What are the advantages and disadvantages of perl language?

968

---

How and what are closures implemented in perl?

951

---

What is the different between array and hash in perl programming?

990

---

Explain perl.

984

---

How to print escaping characters inside a string in perl?

958

---

what is the difference between java and cgi?

1139

---

Why should I use the -w argument with my Perl programs?

1007

---

Explain different types of perl operators.

990

---