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

How to check the status of airplane mode (enable/disable) in perl for Android mobile?

3089

---

Explain chop?

923

---

What is hash?

1082

---

Is there any way to add two arrays together?

974

---

How do you you check the return code of a command in perl?

987

---

How many types of operators are used in the Perl?

1036

---

Explain the various characteristics of perl.

964

---

What are the arguements we normally use for perl interpreter?

966

---

What is eval function in perl?

960

---

Explain what is perl language?

937

---

Explain arrays in perl.

943

---

What are numeric operators in perl?

961

---

What is perl programming?

1029

---

Explain the internal working of cgi

931

---

How do I read command-line arguments with Perl?

1025

---