Perl Palindrome

hushbaby has asked for the wisdom of the Perl Monks concerning the following question:

This is my code:

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";
}
[download]

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:

Not Palindrome.

I dont want it to be this way. Please I will apreciate any help.

Comment on Perl Palindrome Download Code

Replies are listed 'Best First'.
Re: Perl Palindrome by kcott (Archbishop) on Apr 15, 2014 at 04:18 UTC
G'day hushbaby, Welcome to the monastery. You just need a single variable to capture user input. Use length if you need to check the number of characters entered. Use reverse to check for a palindrome. Here's the guts of what you want: `#!/usr/bin/env perl use strict; use warnings; print 'Enter string: '; chomp(my $string = <>); print $string eq reverse($string) ? 'Yes' : 'No', "\n";` [download] Sample runs: `Enter string: 123 No` [download] `Enter string: 121 Yes` [download] I'll leave you to flesh that out for your homework(?). -- Ken	[reply] [d/l] [select]
Re: Perl Palindrome by AnomalousMonk (Archbishop) on Apr 15, 2014 at 04:18 UTC
Coughreverseahem (But remember to chomp.)	[reply]
Re: Perl Palindrome by atcroft (Abbot) on Apr 15, 2014 at 04:22 UTC
I would suggest looking at split() and reverse(), to make your project somewhat easier. `$ perl -Mstrict -Mwarnings -le 'print qq{Enter a 9-character line:}; m +y $line = <>; chomp $line; if ( $line eq reverse $line ) { print q{ye +s}; } else { print q{no}; }' Enter a 9-character line: 123456789 no $ perl -Mstrict -Mwarnings -le 'print qq{Enter a 9-character line:}; m +y $line = <>; chomp $line; if ( $line eq reverse $line ) { print q{ye +s}; } else { print q{no}; }' Enter a 9-character line: 123454321 yes` [download] Hope that helps.	[reply] [d/l]
Re^2: Perl Palindrome by Anonymous Monk on Apr 16, 2014 at 00:07 UTC
Is there a way of doing the required action without the usage of reverse or split however...	[reply]
Re^3: Perl Palindrome by Anonymous Monk on Apr 16, 2014 at 00:13 UTC
Is there a way of doing the required action without the usage of reverse or split however... I'll tell you when your test/interview/homework deadline has passed	[reply]