#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Feb 2014
    Posts
    2
    Rep Power
    0

    Unhappy Please help! I can't print the computed change I'm using perl in xampp


    #!C:\xampp\perl\bin\perl.exe
    use warnings;
    use strict;
    use CGI;
    use CGI::Carp('fatalsToBrowser');



    ###############################
    # CGI Variables
    ###############################
    my $cgi = new CGI;
    my $spagval = $cgi->param( 'text1' ) || '';
    my $bgval = $cgi->param( 'text2' ) || '';
    my $ffregval = $cgi->param('text3') || '';
    my $cfval = $cgi->param('text4') || '';
    my $fflrgval = $cgi->param('text5') || '';
    my $hhswregval = $cgi->param('text6') || '';
    my $hhswlrgval = $cgi->param('text7') || '';
    my $sndval = $cgi->param('text8') || '' ;
    my $cash = $cgi->param('cash') || '';
    my $submit = $cgi->param( 'submit' ) || '';
    my $enter = $cgi->param( 'enter' ) || '';


    ##############################
    # Start the HTML output
    ##############################
    print "Content-type: text/html\n\n";

    print qq|
    <?xml version="1.0" encoding="utf-8"?>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN">
    <html >
    <head>
    <meta http-equiv="content-type" content="text/html;
    charset=utf-8" />
    <title>fastfuds</title>
    </head>
    <body bgcolor='#740192'>



    |;


    my $bg = 70;
    my $spag = 120;
    my $cf = 25;
    my $ffreg = 28;
    my $fflrg = 35;
    my $hhswreg = 65;
    my $hhswlrg = 75;
    my $snd = 25;

    print "<center><table border='3' bordercolor='yellow'><tr><td><center><font color='yellow'><h1>Good Day! What's your order?</h1></font></center>";
    print "<center><font color='skyblue'>#########################################################################";
    print "<h3><font color='yellow' face='Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Spaghetti = 120 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
    <br><font color='yellow' face='Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Burge r = 70&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
    <br><font color='yellow' face='Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Coke Float = 25&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
    <br><font color='yellow' face='Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;French Fries(Regular) = 28&nbsp;&nbsp;&nbsp;French Fries(Large) = 35&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
    <br><font color='yellow' face='Arial'>&nbsp;&nbsp;&nbsp;&nbsp;Hotdog Sandwich(Regular) = 65&nbsp;&nbsp;&nbsp; Hotdog Sandwich(Large) = 75&nbsp;&nbsp;&nbsp;&nbsp;</font>
    <br><font color='yellow' face='Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Sunda e = 25&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font></h3>";
    print "#########################################################################</font></center>";
    print '</td>';
    chomp ($spagval,$bgval,$cfval,$ffregval,$fflrgval,$hhswregval,$hhswlrgval,$sndval);
    if($submit eq ''){
    print qq|
    <form method="post" action="fastfuds.pl">
    <tr><td><center><p>

    <font color='skyblue'>******************************************************<br>

    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>*QUANTITY* </b><br>
    *<font color='white'><b><i>Spaghetti</i></b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;<input type='text' name='text1' value='' />*<br>
    *<font color='white'><b><i>Burger</i></b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;<input type='text' name='text2' value='' />*<br>
    *<font color='white'><b><i>Coke Float</i></b></font> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;:&nbsp;<input type='text' name='text4' value='' />*<br>
    *<font color='white'><b><i>French Fries(Regular)</i></b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;:&nbsp;<input type='text' name='text3' value='' />*<br>
    *<font color='white'><b><i>French Fries(Large)</i></b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;<input type='text' name='text5' value='' />*<br>
    *<font color='white'><b><i>Hotdog Sandwich(Regular)</i></b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;<input type='text' name='text6' value='' />*<br>
    *<font color='white'><b><i>Hotdog Sandwich(Large)</i></b></font>&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;<input type='text' name='text7' value='' />*<br>
    *<font color='white'><b><i>Sundae</i></b></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;<input type='text' name='text8' value='' />*<br>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;*<input type="submit" class="button" name="submit" value="Purchase" /> *
    <br>*******************************************************</font>
    </p></center>
    </form>
    |;
    }
    else{
    print "<tr><td><center><h1>You Ordeyellow :</h1>";
    print "<h3>Qty&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Item&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Amount </h3>";
    if ($spagval>0)
    {
    print "$spagval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Sphagetti&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", $spagval * $spag,".00";
    }
    if ($bgval>0)
    {
    print "<br>$bgval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Burger&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",$bgval * $bg,".00";
    }
    if ($cfval>0)
    {
    print "<br>$cfval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Coke Float&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",$cfval * $cf,".00";
    }
    if ($ffregval>0)
    {
    print "<br>$ffregval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;French Fries(Regular)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;",$ffregval * $ffreg,".00";
    }
    if ($fflrgval>0)
    {
    print "<br>$fflrgval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;French Fries(Large)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",$fflrgval * $fflrg,".00";
    }
    if ($hhswregval>0)
    {
    print "<br>$hhswregval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Hotdog Sandwich(Regular)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",$hhswregval * $hhswreg,".00";
    }
    if ($hhswlrgval>0)
    {
    print "<br>$hhswlrgval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Hotdog Sandwich(Large)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",$hhsw lrgval * $hhswlrg,".00";
    }
    if ($sndval>0)
    {
    print "<br>$sndval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Sundae&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",$sndval * $snd,".00";
    }
    print "<br>--------------------------------------------------------------<br>";
    my $amount = ($spagval*$spag)+($bgval*$bg)+($cfval*$cf)+($ffregval*$ffreg)+($fflrgval*$fflrg)+($hhswregval*$hhswr eg)+($hhswlrgval*$hhswlrg)+($sndval*$snd);
    print "<b>Total Bill</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp; $amount.00</br>";
    print "<form method='post'>";
    print "Cash : <input type='text' name='cash'><br>";
    print "<input type='submit' name='enter' value='Compute'><br></td></tr></center>";
    if($enter eq '')
    {
    my $change = $cash - $amount;
    print "Change : $change";
    }
    print "</form>";
    }


    print qq|
    </tr></table></center>
    </body>
    </html>
    \n|;
  2. #2
  3. Devshed Beginner (1000 - 1499 posts)

    Join Date
    Jan 2004
    Location
    New Springfield, OH
    Posts
    1,214
    Rep Power
    1469
    Holy code tags!

    Please format your code and repaste it using code tags.
    Don't like me? Click it.

    Scripting problems? Windows questions? Ask the Windows Guru!

    Stay up to date with all of my latest content. Follow me on Twitter!

    Help us help you! Post your exact error message with these easy tips!
  4. #3
  5. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Feb 2014
    Posts
    2
    Rep Power
    0
    #!C:\xampp\perl\bin\perl.exe
    use warnings;
    use strict;
    use CGI;
    use CGI::Carp('fatalsToBrowser');



    ###############################
    # CGI Variables
    ###############################
    my $cgi = new CGI;
    my $spagval = $cgi->param( 'text1' ) || '';
    my $bgval = $cgi->param( 'text2' ) || '';
    my $ffregval = $cgi->param('text3') || '';
    my $cfval = $cgi->param('text4') || '';
    my $fflrgval = $cgi->param('text5') || '';
    my $hhswregval = $cgi->param('text6') || '';
    my $hhswlrgval = $cgi->param('text7') || '';
    my $sndval = $cgi->param('text8') || '' ;
    my $cash = $cgi->param('cash') || '';
    my $submit = $cgi->param( 'submit' ) || '';
    my $enter = $cgi->param( 'enter' ) || '';


    ##############################
    # Start the HTML output
    ##############################
    print "Content-type: text/html\n\n";

    print qq|
    <?xml version="1.0" encoding="utf-8"?>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN">
    <html >
    <head>
    <meta http-equiv="content-type" content="text/html;
    charset=utf-8" />
    <title>fastfuds</title>
    </head>
    <body bgcolor='#740192'>



    |;


    my $bg = 70;
    my $spag = 120;
    my $cf = 25;
    my $ffreg = 28;
    my $fflrg = 35;
    my $hhswreg = 65;
    my $hhswlrg = 75;
    my $snd = 25;

    print "<center><table border='3' bordercolor='yellow'><tr><td><center><font color='yellow'><h1>Good Day! What's your order?</h1></font></center>";
    print "<center><font color='skyblue'>#########################################################################";
    print "<h3><font color='yellow' face='Arial'></font>
    <br><font color='yellow' face='Arial'>Burger = 70</font>
    <br><font color='yellow' face='Arial'>Coke Float = 25</font>
    <br><font color='yellow' face='Arial'>French Fries(Regular) = 28 French Fries(Large) = 35</font>
    <br><font color='yellow' face='Arial'>Hotdog Sandwich(Regular) = 65 Hotdog Sandwich(Large) = 75</font>
    <br><font color='yellow' face='Arial'>Sundae = 25</font></h3>";
    print "#########################################################################</font></center>";
    print '</td>';
    chomp ($spagval,$bgval,$cfval,$ffregval,$fflrgval,$hhswregval,$hhswlrgval,$sndval);
    if($submit eq ''){
    print qq|
    <form method="post" action="fastfuds.pl">
    <tr><td><center><p>

    <font color='skyblue'>******************************************************<br>


    *<font color='white'><b><i>Spaghetti</i></b></font><input type='text' name='text1' value='' />*<br>
    *<font color='white'><b><i>Burger</i></b></font><input type='text' name='text2' value='' />*<br>
    *<font color='white'><b><i>Coke Float</i></b></font><input type='text' name='text4' value='' />*<br>
    *<font color='white'><b><i>French Fries(Regular)</i></b></font><input type='text' name='text3' value='' />*<br>
    *<font color='white'><b><i>French Fries(Large)</i></b></font><input type='text' name='text5' value='' />*<br>
    *<font color='white'><b><i>Hotdog Sandwich(Regular)</i></b></font><input type='text' name='text6' value='' />*<br>
    *<font color='white'><b><i>Hotdog Sandwich(Large)</i></b></font><input type='text' name='text7' value='' />*<br>
    *<font color='white'><b><i>Sundae</i></b></font><input type='text' name='text8' value='' />*<br>
    *<input type="submit" class="button" name="submit" value="Purchase" /> *
    <br>*******************************************************</font>
    </p></center>
    </form>
    |;
    }
    else{
    print "<tr><td><center><h1>You Ordeyellow :</h1>";
    print "<h3>Qty Item Amount</h3>";
    if ($spagval>0)
    {
    print "$spagval Sphagetti", $spagval * $spag,".00";
    }
    if ($bgval>0)
    {
    print "<br>$bgval Burger",$bgval * $bg,".00";
    }
    if ($cfval>0)
    {
    print "<br>$cfval Coke Float",$cfval * $cf,".00";
    }
    if ($ffregval>0)
    {
    print "<br>$ffregval French Fries(Regular)",$ffregval * $ffreg,".00";
    }
    if ($fflrgval>0)
    {
    print "<br>$fflrgval French Fries(Large)",$fflrgval * $fflrg,".00";
    }
    if ($hhswregval>0)
    {
    print "<br>$hhswregval Hotdog Sandwich(Regular)",$hhswregval * $hhswreg,".00";
    }
    if ($hhswlrgval>0)
    {
    print "<br>$hhswlrgval Hotdog Sandwich(Large) ",$hhswlrgval * $hhswlrg,".00";
    }
    if ($sndval>0)
    {
    print "<br>$sndval Sundae",$sndval * $snd,".00";
    }
    print "<br>--------------------------------------------------------------<br>";
    my $amount = ($spagval*$spag)+($bgval*$bg)+($cfval*$cf)+($ffregval*$ffreg)+($fflrgval*$fflrg)+($hhswregval*$hhswr eg)+($hhswlrgval*$hhswlrg)+($sndval*$snd);
    print "<b>Total Bill</b> $amount.00</br>";
    print "<form method='post'>";
    print "Cash : <input type='text' name='cash'><br>";
    print "<input type='submit' name='enter' value='Compute'><br></td></tr></center>";
    if($enter eq '')
    {
    my $change = $cash - $amount;
    print "Change : $change";
    }
    print "</form>";
    }


    print qq|
    </tr></table></center>
    </body>
    </html>
    \n|;
  6. #4
  7. No Profile Picture
    Contributing User
    Devshed Novice (500 - 999 posts)

    Join Date
    Jun 2012
    Posts
    830
    Rep Power
    496
    Still not right.

    Look at the '#' (sharp) button at the top of the edit box.
  8. #5
  9. No Profile Picture
    Contributing User
    Devshed Intermediate (1500 - 1999 posts)

    Join Date
    Apr 2009
    Posts
    1,930
    Rep Power
    1225
    Cross ported on perlguru
  10. #6
  11. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Nov 2013
    Posts
    2
    Rep Power
    0
    i can see the output page view, i think the problem is space found between variable name:

    Occured:
    Code:
    +($hhswregval*$hhswr eg)
    should be:
    Code:
    +($hhswregval*$hhswreg)
    regards,
    Arasu

IMN logo majestic logo threadwatch logo seochat tools logo