Product of Two Numbers in PERL

A simple program that I wrote that will ask the user to give two numbers and then the program will compute the product of two numbers using PERL as my programming language.

 I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My Facebook Page is https://www.facebook.com/profile.php?...

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/


Thank you very much for your help and support.

Sample Program Output

Program Listing

product.pl

# product.pl # Author : Jake Rodriguez Pomperada, MAED-IT # Date : November 4, 2019 Monday # Email : jakerpomperada@gmail.com do { system("cls"); print "\n\n"; print "\tProduct of Two Numbers in PERL"; print "\n\n"; print "\tEnter First Value : "; chomp($a =<>); print "\tEnter Second Value : "; chomp($b =<>); $product = ($a * $b); print "\n"; print "\tThe product of $a and $b is $product."; print "\n\n"; print "\tDo you want to continue Y/N? : "; chomp($reply =<>); } while (uc $reply eq 'Y'); print "\n"; print "\tEnd of Program"; print "\n\n";

Product of Two Numbers in PERL

A simple program that I wrote that will ask the user to give two numbers and the program will compute the product of two numbers using PERL programming language.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My website is http://www.jakerpomperada.com

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod City I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Sample Program Output

Program Listing

# product.pl

# Accepts two numbers from the user and multiply the two numbers and 

# display the results on the screen.

# Author : Jake Rodriguez Pomperada

# Date   : October 29, 2019

print "\n\n";

print "\tProduct of Two Numbers in PERL";

print "\n\n";

print "\tGive First Value : ";

chomp ($a = <>);

print "\tGive Second Value : ";

chomp ($b = <>);

$product = ($a * $b);

print "\n\n";

print "\tThe Product of $a and $b is $product.";

print "\n\n";

print "\tEnd of Program";

Product of Two Numbers in Perl

Here is a simple program that I wrote using Perl to ask the user to give two numbers and then the program will compute the product of the two numbers.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

product.pl

print "\n";

print "\tProduct of Two Numbes in Perl";

print "\n\n";

print "\tCreated By Mr. Jake R. Pomperada";

print "\n\n";

print "\tEnter first  value : ";

chomp ($a = <>);

print "\tEnter second value : ";

chomp ($b = <>);

$product = ($a * $b);

print "\n";

print "\tThe product of $a and $b is $product.";

print "\n\n";

print "\tEnd of Program";

print "\n";

Product of Two Numbers in PERL CGI

A simple program that I wrote that will ask the user to give two numbers and then our program will find the product of the two numbers using PERL CGI.


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

 product.cgi

#!"D:\xampp\perl\bin\perl.exe"
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $q = new CGI;

my $num1 = $q->param(val1);
my $num2 = $q->param(val2);
print "Content-type: text/html\n\n";

print "<html>
<style>
body {
     font-family:arial;
     font-size:15;
     color:blue;
    }

</style>
<head><title>Product of Two Numbers in Perl CGI</title></head>
<body bgcolor='lightgreen'>
    <h3>Product of Two Numbers in PERL CGI</h3>
    <b>Written By: Mr. Jake R. Pomperada,MAED-IT</b>
    <br><br>
    <form action='' method='post'>
        <label>Enter First Number <label>
        <input type='text' name='val1' value='' autofocus/><br><br>
        <label>Enter Second Number  </label>
        <input type='text' name='val2' value='' />
        <br><br>
        <input type='submit' value='Submit' />
   
    <input type='reset' name='Reset' value='Reset'/></form>
</body>
</html>";   


if($q->param())
{
   
 
    $product = $num1 * $num2;
   
        print "<p>The product of $num1 and $num2 is $product.</p>";
   
}