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 extract pin_code,phone_number,year from text file using regular expressions in perl

2229

---

Explain the execution of a program in perl.

979

---

Explain lists and ivalue?

942

---

What are the various uses of perl?

1014

---

How can memory be managed in Perl?

1045

---

What are the various perl data types based on the context?

929

---

How to renaming a file in perl programming?

1040

---

what is the function of Return Value?

1056

---

What is use of ‘->’ symbol?

1002

---

What $! In perl?

952

---

How to connect to SQL server through Perl?

1045

---

List the data types that Perl can handle?

1039

---

Define print() function in perl?

903

---

Which has the highest precedence, List or Terms? Explain?

884

---

Explain different types of perl operators.

926

---