New page in perl

74 New Member

Hi. I need to create 3 pages. Page 1 requests the number of elements the user wants to add and average. Page 2 asks the user for the numbers. Page 3 adds and averages the numbers and displays them. I can't create a separate page 3 to do this. Page 3 shows the contents of page 2 in addition to the contents of page 3. How do I get only the contents on page 3 to display separately? Everything works so I'm just asking how to do this. Any feedback would be appreciated. Thanks in advance. Here is my code:

Expand|Select|Wrap|Line Numbers

 #!/usr/bin/perl
 
BEGIN

{

    open(STDERR, ">&STDOUT");

    select(STDERR); $| = 1;

    select(STDOUT); $| = 1;

    print "Content-type: text/html\n\n";

}
 
if($ENV{'QUERY_STRING'} eq "")

{

    &page1;

    exit;

}
 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 
if($buffer eq "")

{

    $buffer = $ENV{'QUERY_STRING'};

}
 
@pairs = split(/&/, $buffer);

foreach $pair(@pairs)

{

        ($name, $value) = split(/=/, $pair);
 
    $value =~ tr/+/ /;

        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

        $name =~ tr/+/ /;

        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 
    if($FORM{$name} eq "")

    {

        $FORM{$name} = $value;

    }

    else

    {

        $FORM{$name} .= " " . $value;

        #$FORM{$name} /= " " . $value;
 
    }

}
 
$num = $FORM{"num"};
 
sub page1

{

print <<ENDHTML;

<title>Assignment #4 (CS Credit)</title>

<body text="white" bgcolor="blue">

<font face="arial" size="4">

<div align="center">

<form method="get" action="/~westj2/cgi-bin/assignment4_CS_credit.cgi">

<br>
 
Enter the number of elements to add and average:

<input type="text" name="num" value="3"><br><br>

<input type="submit" name="sub" value="Submit">

<input type="reset" name="res" value="Reset">
 
ENDHTML

}
 
print <<ENDHTML;
 
<title>Assignment #4 (CS Credit)</title>

<body text="white" bgcolor="blue">

<font face="arial" size="4">

<div align="center">

<form method="get" action="/~westj2/cgi-bin/assignment4_CS_credit.cgi">
 
Enter elements you want to add and average:<br><br>
 
ENDHTML
 
for($i = 1; $i <= $num; $i++)

{

    print "Element #$i: ";

    print "<input type='text' name=$i value=$i><br>";

}
 
print <<ENDHTML;
 
<br><input type="submit" name="calc" value="Submit">

<input type="reset" name="res" value="Reset">

<input type="hidden" name="num" value=$FORM{"num"}>
 
ENDHTML
 
my @queue;
 
for($i = 1; $i <= $num; $i++)

{

    unshift(@queue, $FORM{"$i"});

}
 
my @elements = @queue;
 
print "You entered: ";
 
for($i = 1; $i <= $num; $i++)

{

    print(pop(@queue));

    print " ";

}
 
my $sum;
 
for($i = 0; $i < $num; $i++)

{

    $sum = $sum + @elements[$i];

}
 
print "<br>Sum: $sum";
 
my $avg = $sum / $num;

print "<br>Average: $avg";

Jun 3 '09 #1

Subscribe Reply

3481

KevinADC

4,059

Recognized Expert Specialist

Without going into the whole use "strict" and "warnings" and the CGI module speech, and changing too much of the code you already have, here is one way how (I think) you can do what you want. Ask questions if necessary.

Expand|Select|Wrap|Line Numbers

 
#!/usr/bin/perl
 
BEGIN {
 
    open(STDERR, ">&STDOUT");

    select(STDERR); $| = 1;

    select(STDOUT); $| = 1;

    print qq{Content-type: text/html\n\n

<title>Assignment #4 (CS Credit)</title>

<body text="white" bgcolor="blue">

<font face="arial" size="4">

<div align="center">

};

}
 
my $url = '/~westj2/cgi-bin/assignment4_CS_credit.cgi';
 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

$buffer = $ENV{'QUERY_STRING'};
 
@pairs = split(/&/, $buffer);

foreach $pair(@pairs){

   ($name, $value) = split(/=/, $pair);

   $value =~ tr/+/ /;

   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

   $name =~ tr/+/ /;

   $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

   if($FORM{$name} eq ""){

      $FORM{$name} = $value;

   }

   else{

      $FORM{$name} .= " " . $value;

   }

}
 
$num = $FORM{"num"};

if($FORM{'page'} == 2) {

   page2();

   exit;

}

elsif($FORM{'page'} == 3) {

   page3();

   exit;

}

else {

   page1();

   exit;

}
 
sub page1 {

   print <<ENDHTML;

<form method="get" action="$url">

<input type="hidden" name="page" value=2>

<br>
 
Enter the number of elements to add and average:
 
<input type="text" name="num" value="3"><br><br>

<input type="submit" name="sub" value="Submit">

<input type="reset" name="res" value="Reset">

</form>
 
ENDHTML

}
 
sub page2 {

   print <<ENDHTML;

<form method="get" action="$url">

<input type="hidden" name="page" value=3>
 
Enter elements you want to add and average:<br><br>
 
ENDHTML
 
for($i = 1; $i <= $num; $i++)

{

    print "Element #$i: ";

    print "<input type='text' name=$i value=$i><br>";

}
 
print <<ENDHTML;
 
<br><input type="submit" name="calc" value="Submit">

<input type="reset" name="res" value="Reset">

<input type="hidden" name="num" value=$FORM{"num"}>

</form>
 
ENDHTML

}
 
sub page3 { 

   my @queue;
 
   for($i = 1; $i <= $num; $i++){

      unshift(@queue, $FORM{"$i"});

   }

   my @elements = @queue;

   print "You entered: ";

   for($i = 1; $i <= $num; $i++){

      print(pop(@queue));

      print " ";

   }

   my $sum;

   for($i = 0; $i < $num; $i++){

      $sum = $sum + $elements[$i];

   }

   print "<br>Sum: $sum";

   my $avg = $sum / $num;

   print "<br>Average: $avg";

   print qq{<br><br><form action="$url">

<input type="submit" value="Try Again...">

</form>

}; 

}

Jun 3 '09 #2

JWest46088

New Member

Nope, it didn't work. It's doing the same thing. I thought using hidden values may work, but I guess not. What about using path info? Any thoughts?

EDIT: Actually, now that I look at it more closely, the text that is supposed to be separate on page3 is already being shown on page2. When the submit button is clicked on page2, the math is performed and the text is updated to show the sum and average. I think this was happening before I edited it with your suggestions as well.

Jun 3 '09 #3

KevinADC

4,059

Recognized Expert Specialist

I tested your code and my code and they do not do the same thing. My code shows each page in succession, and only that page. Your code shows page one, then page two with page three output displayed in page two, then page three output with page two output also displayed.

I assumed that was what you wanted to do judging by your not very clear description of the behavior you were seeking.

Jun 3 '09 #4

JWest46088

New Member

I copied your code and pasted it in a new file then ran it, and it's doing the same thing as mine for me. If you go to this link, you can run all three programs I have and their code as well.

http://web.cs.sunyit.edu/~westj2/cgi-bin/

The programs are assignment4_CS_ credit.cgi, assignment4_CS_ credit2.cgi, and assignment4_CS_ credit3.cgi.

Version 3 is the program with the code you suggested.

Jun 3 '09 #5

RonB

589

Recognized Expert Moderator Contributor

The link for the action attribute is pointing to the wrong script, which is why you think Kevin's script is doing the same thing as yours.

I'm still trying to decide if I want/should post a properly written script, which I probably won't because this is clearly a homework assignment. If I do, it will be one that your instructor won't accept, because it will use some "advanced" items that would probably not have been covered in your class.

Ron
aka FishMonger

Jun 3 '09 #6

JWest46088

New Member

Doh! Thanks Ron and Kevin. It works now.

Jun 4 '09 #7

KevinADC

4,059

Recognized Expert Specialist

@RonB
Yikes... I think this guy is stalking me! ;)

Jun 4 '09 #8

RonB

589

Recognized Expert Moderator Contributor

@KevinADC
What should I do when I catch you! :) :)

Jun 5 '09 #9

KevinADC

4,059

Recognized Expert Specialist

@RonB

hmm.... never thought about that. Buy me a Margarita? ;)

Jun 5 '09 #10

Similar topics

2706

Is there a way to treat a PHP page like a form?

by: william c | last post by:

I don't really know PHP that well. I'm fixing a Perl program that accesses a db after getting form input from a PHP page. If the server-side validation fails I'd like to reload the form with all the user's info still filled in. I could embed the entire page in the Perl program but it seems like there must be a better way to go. Is there a way to get the info into the Post environment variable and add code for the PHP page to read it...

PHP

2921

Making a .php page a .cgi page

by: Andrew DeFaria | last post by:

I have somebody or some people who are abusing a Perl based .cgi script. I have written a PHP page which reports this abuse as per $_SERVER. My intentions were to replace the .cgi script with this .php script. Problem is these people are coming in with some web crawler or something like that (i.e. wget http://myserver.com/thescript.cgi). Now if I replace thescript.cgi with thescript.php they will not hit it. And if I replace thescript.cgi...

PHP

2540

[perl-python] get web page programatically

by: Xah Lee | last post by:

# -*- coding: utf-8 -*- # Python # suppose you want to fetch a webpage. from urllib import urlopen print urlopen('http://xahlee.org/Periodic_dosage_dir/_p2/russell-lecture.html').read() # note the line # from <library_name> import <function_name1,function_name2...>

Python

1921

PHP - DB2 weird error while refreshing page

by: crunix | last post by:

Hello. I have developed a medical application with php 4 linked to IBM DB2 database. The database connection is right and i can access data with no problem...but sometimes when i reload the page which has been already loaded (by pressing CTRL-R) i receive an SQL STATE Error: "(...) SQL State: X (..)"

DB2 Database

4900

Can't make this page work

by: scottyman | last post by:

I can't make this script work properly. I've gone as far as I can with it and the rest is out of my ability. I can do some html editing but I'm lost in the Java world. The script at the bottom of the html page controls the form fields that are required. It doesn't function like it's supposed to and I can leave all the fields blank and it still submits the form. Also I can't get it to transfer the file in the upload section. The file name...

Javascript

1439

Writing a "Hello world" HTML page from perl script ?

by: Thomas Blabb | last post by:

Sorry for this question but how do I write a simple "Hello world" HTML page from a perl script? In other words if I click in an already existing html page on a link like: .... <a href="/export/home/aaa/cgi-bin/writehello.pl" target="_top">Click on this link</A> .... a html page with the following stuff should be written and displayed in the browser:

HTML / CSS

3757

Running a perl script from an ASP page to include QUERY_STRING

by: benwylie | last post by:

I am running IIS 6.0 on Windows 2003. I would like to be able to run a perl script from a web page and include the output. I have tried doing it with an ssi: <form action='docsearch.shtml' method='get'>  </form> This correctly ran the script, but it was unable to include the

ASP / Active Server Pages

6495

by: sandy | last post by:

hello,,,,,,,,, i am creating login page using Perl/CGI facing prob... able to connect DB but from there facing prob If u have related code of login page in Perl please send me on sandip.bhosale@gmail.com please help me i am using MySQL as DB user name:root password:root database name:ITS

MySQL Database

6046

Run a Perl program from an HTML page without user intervention

by: owlice | last post by:

Greetings! I thought I'd add a little something to a web site, a "tip of the week," and wanted it automated so that if I get hit by a truck (or, more likely, am forgetful), the tip is updated automatically. I learned enough Perl (read: just enough) to code a script that does what I want it to do. Now the question is: how to get it to run automatically. I would like the program to be invoked when someone, anyone, hits my homepage. I...

Perl

9405

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...

Windows Server

10013

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...

Online Marketing

9960

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...

Windows Server

9841

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...

General

7383

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...

Microsoft Access / VBA

6655

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...

C# / C Sharp

5280

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...

Networking - Hardware / Configuration

3533

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP

2807

Comprehensive Guide to Website Development in Toronto: Expert Insights from BSMN Consultancy

by: bsmnconsultancy | last post by:

In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

General