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.
Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
#!"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>";
}
}
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>";
}
}
No comments:
Post a Comment