
There's more than one way to do things
	PerlMonks

by Flame (Deacon)

on Sep 01, 2001 at 19:21 UTC ( [id://109641]=perltutorial: print w/replies, xml )

Need Help??

Select Code to Download

<HTML>
   <HEAD>
      <TITLE>MyCode</TITLE>
...
      <A HREF="mypage.cgi">Go to My Page!</A>
   </BODY>
</HTML>

<HTML>
   <HEAD>
      <TITLE>MySite: $title</TITLE>
...
      <A HREF="mypage.cgi">Go to My Page!</A>
   </BODY>
</HTML>

<HTML>
   <HEAD>
      <TITLE>MySite: $title</TITLE>
...
      <A HREF="$pagelink">Go to My Page!</A>
   </BODY>
</HTML>

<HTML>
   <HEAD>
      <TITLE>MySite: $title</TITLE>
...
      <BR>
   </BODY>
</HTML>

#Sub utemplate (use template)  Call only when ready to print.
sub utemplate {                                
...
}

1;

#!/usr/bin/perl

use CGI qw(:standard ); #Handy for printing header
...
$copyright = "(C) 2001 MyCompany";

&utemplate;

#!/usr/bin/perl

use strict;
...

#Continue with everything else you had to do

Domain Nodelet^?

Node Status^?

node history
Node Type: perltutorial [id://109641]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others goofing around in the Monastery: (2)

As of 2024-04-26 07:51 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found