print "\nThis program accepts a 9 character string from you the user a +nd determines whether or not It is a palindrome, printing the result to the screen. \n"; print "\nPlease Enter in a 9 character item: "; ; my ($a, $b, $c, $d, $e, $f, $g, $h, $i); chomp ($a=<>); chomp ($b=<>); chomp ($c=<>); chomp ($d=<>); chomp ($e=<>); chomp ($f=<>); chomp ($g=<>); chomp ($h=<>); chomp ($i= +<>); if ($a eq $i && $b eq $h && $c eq $g && $d eq $f && $e eq $e ){ print "PALINDROME!\n"; } else{ print "NOT A PALINDROME! \n"; }
I have to enter the number individually, I am trying to find a way to enter the 9 numbers all at once.
But in this case I have to enter one number and press enter on and on till I reach the 9th number.
Please can anyone help me to figure out a way to input the number in this format.
Print" please enter 9 number: \n"
123456789
Not Palindrome.
or Print" please enter 9 number: \n"
123454321
Palindrome
In my case I have to enter:
1
2
3
4
5
6
7
8
9
Not Palindrome.
I dont want it to be this way. Please I will apreciate any help.
In reply to Perl Palindrome by hushbaby
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |