print( Please enter a string );
$input_string <STDIN>;
chop($input_string);
$rev_string reverse($input_string);

if($input_string eq $rev_string){
print( The string is a palindrome );
}else{
print( The string is NOT a palindrome );
}

Hey frnds

Cant we write that using control statements like if!!!!

var hai

var1 `echo $var|rev`

if [ $var ! $var1 ] ; then
echo $var is not palindrome.
else
echo $var is palyndrome

fi

echo -n Enter number :
read n

# store single digit
sd 0

# store number in reverse order
rev

# store original number
on $n

while [ $n -gt 0 ]
do
sd $(( $n 10 )) # get Remainder
n $(( $n / 10 )) # get next digit
# store previoues number and current digit in rev
rev $( echo ${rev}${sd} )
done

if [ $on -eq $rev ];
then
echo Number is palindrome
else
echo Number is NOT palindrome
fi

!#/bin/sh

# To check whether the entered number is palindrome or not.

echo Enter a number:

read NUM1

echo $NUM1 > file.txt

NUM2 `rev file.txt`

if [ $NUM1 -eq $NUM2 ]; then

echo Entered Number $NUM1 is a palindrome.

else

echo Entered Number $NUM1 is not a palindrome.

fi