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 many data types are there in perl?

919

---

What is a perl references?

875

---

Which has highest precedence in between list and terms? Explain?

830

---

What are perl variables?

879

---

Does Perl have reference type?

901

---

How will you create a file in perl?

933

---

What is perl dbi?

851

---

Explain the use of 'my' keyword in perl?

973

---

Explain lexical variables.

899

---

What are different data types that perl supports. Elaborate on them.

997

---

Why do you use Perl?

930

---

How to renaming a file in perl programming?

992

---

What is the purpose of _package_ literal?

966

---

Explain ivalue?

940

---

How to open a directory in perl?

1039

---