=************************************** = Name: Palindrome in Perl = Description:In this article I would like to share with you a sample program the I wrote in PERL CGI to accept a string and then it will check if the given string is a palindrome or not a palindrome. The code is very easy to understand and use. Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com. My mobile number here in the Philippines is 09173084360. = By: Jake R. Pomperada = = = Inputs:None = = Returns:None = =Assumes:None = =Side Effects:None =************************************** #!"D:\xampp\perl\bin\perl.exe" use CGI; use CGI::Carp qw(warningsToBrowser fatalsToBrowser); print "Content-type: text/html\n\n"; print "<html> <style> body { font-family:arial; font-size:15; color:blue; } </style> <head><title>Palindrome Program in PERL CGI</title></head> <body bgcolor='lightgreen'><br> <h3>Palindrome Program in PERL CGI</h3> <b>Written By: Mr. Jake R. Pomperada,MAED-IT</b> <br><br><br> <form action='' method='post'> <label>Give a String : <label> <input type='text' name='string' /> <br><br> <input type='submit' value='Ok' title='Click to know if the string a palindrome or not a palindrome.'/> </form> </body> </html>"; my $q = new CGI; if($q->param()) { $string = lc($q->param('string')); $string=~s/ //g; $string =~ s/[^A-Za-z0-9]//g; $reverse = reverse($string); $display = uc($string); if($string eq $reverse){ print "<br>"; print "<p>The String <b>$display</b> is Palindrome.</p>"; }else{ print "<br>"; print "<p>The String <b>$display</b> is not Palindrome.</p>"; } }