another palindrome problem

[rubyhuang]

i'm a new perl learner, this is the first perl task i will do. please help me.

The user can input a string, and then a script will check to see if the string is a palindrome or not, displaying the result to the user on another page (include the original string that they input in the displayed output). Disregard the case of letters, as well as spaces and any punctuation symbols in the sentence (use Perl string routines to deal with these issues) when you check to see if it is a palindrome.
For example, the string "Madam, I'm Adam" is a palindrome (disregarding upper/lower case, spaces, and punctuation symbols), and the number 15751 is a palindrome too. The strings "Ma'am, I'm Adam" and "34546" aren't. also allow the user to input up to five strings at once and display results for all of them on the same page. If the user only inputs one or two strings to test, then you should only output information about those strings (i.e. don't assume that they will enter exactly five strings).

[KevinADC]

Sorry, but nobody here is going to do your class/course work assignment for you. If you write some code and make an attempt you may get some help.

[rubyhuang]

i'm a new perl learner, this is the first perl task i will do. please help me.

The user can input a string, and then a script will check to see if the string is a palindrome or not, displaying the result to the user on another page (include the original string that they input in the displayed output). Disregard the case of letters, as well as spaces and any punctuation symbols in the sentence (use Perl string routines to deal with these issues) when you check to see if it is a palindrome.
For example, the string "Madam, I'm Adam" is a palindrome (disregarding upper/lower case, spaces, and punctuation symbols), and the number 15751 is a palindrome too. The strings "Ma'am, I'm Adam" and "34546" aren't. also allow the user to input up to five strings at once and display results for all of them on the same page. If the user only inputs one or two strings to test, then you should only output information about those strings (i.e. don't assume that they will enter exactly five strings).

below is my code, i can judge palindrome disregarding upper/lower case, spaces, and punctuation symbols, but i do not know how to judge five string together. please help me.

do{
 
    # read the input
    print "Type a word or phrase: ";
    $line = <>;
 
    # strip out stuff that would disturb the palindrome comparison
    # and convert to lowercase...
    $line =~ s/\W//g; # removes space and nonalphanumerics        
    $line =~ tr/A-Z/a-z/;  # converts to lowercase. Better: lc($line) !
 
    # get the list of letter and reverse it
    @letters = split //, $line;
    $reverse = join "", reverse @letters;
 
    # a palindrome is equal to its reverse or a one letter word.
    if(@letters == 0){
    print "End of session\n";
    }
    elsif(@letters == 1){
    print "One letter palindrome, trivial!\n";
    }
    elsif($reverse eq $line){
    print "This is a palindrome.\n";
    }
    else{
    print "Not a palindrome.\n";
    }
}while($line);
 

[KevinADC]

The strings "Ma'am, I'm Adam" and "34546" aren't. also allow the user to input up to five strings at once and display results for all of them on the same page. If the user only inputs one or two strings to test, then you should only output information about those strings (i.e. don't assume that they will enter exactly five strings).

What have you tried in order to accomplish the above requirement of your script?

[rubyhuang]

i have no clue about that yet. can you give me some little hint.i will try it myself. thank you very much.

[KevinADC]

i have no clue about that yet. can you give me some little hint.i will try it myself. thank you very much.

use the push() function.