how can i link to 2 html page and display data from page 2 with PERL file?

M

martinthurn

New member
You need to write your Perl program to print the entire contents of page 1 with all the values filled in. You can't do it with an html (static) page.
 
i have two html page called page 1 and page 2 need to displaly infromation from page 2 on page one and save data on text file. so far i creat 2 html page and 1 pl file called page 2.pl but the pl file just display information i dont know how to save data nad display in page1 table form.......
page1 --------------------------------------
<HTML>
<HEAD>
<TITLE>K charity</TITLE>

</HEAD>
<BODY BGCOLOR="black" TEXT="white">
<center>
<H2>Welcome to K Charity</H2>


<FORM ACTION="http://team4.studentpages.org.uk/st09001436/page2.HTML" METHOD=POST>

<table BORDERCOLOR=RED style="width: 74.02%; height: 84px;" border="2" cellspacing="1" cellpadding="1" align="center"><caption>*</caption>
<tbody>

<tr>
<td><span style="font-family: times new roman,times;">Display Name</span></td>
<td><span style="font-family: times new roman,times;">Date*******</span></td>
<td><span style="font-family: times new roman,times;">Amount*</span></td>
<td><span style="font-family: times new roman,times;">Tax Bouns</span></td>
<td><span style="font-family: times new roman,times;">******* Comment*********</span></td>
<tr>
<td>*</td>
<td>*</td>
<td>*</td>
<td>*</td>
<td>*</td>
</tr>
<tr>
<td>*</td>
<td>*</td>
<td>*</td>
<td>*</td>
<td>*</td>
</tr>
</tbody>
</table>

<p><br /><br /><br /><br /></p>




<p>
Total Donated Online £


<p>


<INPUT type="button" VALUE="Sponser me now" NAME="Sponser me now">
</center>
</form>
</body>
</html>
page 2-------------------------
<HTML>
<HEAD>
<TITLE>page 2</TITLE>
</HEAD>
<BODY BGCOLOR="black" TEXT="white">
<H2> Collect Donation</H2>
<FORM ACTION="http://team4.studentpages.org.uk/st09001436/cgi-bin/page2.pl" METHOD=POST>

Name: <INPUT TYPE="text" VALUE=" Your Name " SIZE=30>
Amount £ <INPUT TYPE="text" VALUE="0" NAME="Amount " SIZE=30>


<HR>Please share any suggestions or comments with us: <P>
<TEXTAREA NAME="comments" ROWS=3 COLS=65 WRAP>
Comments?</TEXTAREA> <HR>
<INPUT TYPE="submit" VALUE="Collect Donation" NAME="submit">
<INPUT TYPE="reset" VALUE="Start Over" NAME="startover">
</FORM>
</BODY>
</HTML>

page2.pl


#!/usr/bin/perl
# must be on a line of its own

require "subroutine.lib";
&Parse_Form;
print "Content-type: text/html\n\n";
foreach $key (sort keys(%formdata))
{ print
"<P> The <B>$key</B>
: <B>$formdata{$key}</B>";
}
 
Back
Top