New page in perl

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

Follow Post Reply

3237

KevinADC

4,059

Expert 2GB

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

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

Expert 2GB

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

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

Expert Mod 512MB

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

Doh! Thanks Ron and Kevin. It works now.

Jun 4 '09 #7

KevinADC

4,059

Expert 2GB

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

Jun 4 '09 #8

RonB

589

Expert Mod 512MB

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

Jun 5 '09 #9

KevinADC

4,059

Expert 2GB

@RonB

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

Jun 5 '09 #10

RonB

589

Expert Mod 512MB

You know that I know the perfect place.
http://www.rosysatthebeach.com

Now, watch me get dinged for the semi self promotion

Jun 5 '09 #11

KevinADC

4,059

Expert 2GB

hehehe.... maybe one of these days I'll take you up on that. BTW, welcome to bytes.com :)

Jun 6 '09 #12

RonB

589

Expert Mod 512MB

@KevinADC
I might even get behind the bar, which usually means I lower their profit margin, so beware. :)

@KevinADC
Thanks,
I'm starting to see the other sites we're on slow down (or I'm just getting bored) so I need to add a few more to my "resume".

Jun 6 '09 #13

KevinADC

4,059

Expert 2GB

This perl forum used to be hopping. Look at my post count in just a little over two years as a member here. Sure, some of it is not in the perl forum but the majority is. This forum went nearly dead about 6 to 7 months ago when some forum changes were made. Its getting a little activity now but not even close to what it used to be.

Jun 6 '09 #14

NeoPa

32,181

Expert Mod 16PB

It's great to see you popping back Kevin - if only now and then.

No promises, but we're hoping to have a change (or two) released shortly which may allow the site to grow again (to stop it's further decline at least). Watch this space (but keep the breathing going - I don't have any dates yet).

Jun 7 '09 #15

numberwhun

3,503

Expert Mod 2GB

@NeoPa
That is absolutely good to hear. Thanks for the info! :)

Jun 7 '09 #16

New page in perl

Post your reply

Similar topics