Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
Name Change: From 'Simple Template' to 'Template with optional PHP execution'



Welcome:
Well, I've been hearing quite a bit about the 'FastTemplate' and other Template modules in several languages, (Perl and PHP in particular), and while I think it probably works quite well and does it's job properly, I have found that it can be a little too complex at times, especially when you do not need anything nearly so complicated.


Purpose:
I designed this template system because my website needed to have the template execute some PHP code within it, before being used by PERL as a template. Although it was designed to do that, the first method of use discussed here does not use PHP.


Description:
This is a quick tutorial on creating and using a simple template.


The Template:
All right, the first thing you need is the HTML or other code you will be making into a template. The following is just our example code.
<HTML> <HEAD> <TITLE>MyCode</TITLE> </HEAD> <BODY> <A HREF="mypage.cgi">Go to My Page!</A> </BODY> </HTML>


That should look like any other HTML document might since we have not started to make it into a template yet. Now, lets say we want the title to always be "MySite: page_name". We would change the code to something like this:
<HTML> <HEAD> <TITLE>MySite: $title</TITLE> </HEAD> <BODY> <A HREF="mypage.cgi">Go to My Page!</A> </BODY> </HTML>


Now, once that is done, lets say we want to make the link point to another page specified by a program. It is just as simple as before:
<HTML> <HEAD> <TITLE>MySite: $title</TITLE> </HEAD> <BODY> <A HREF="$pagelink">Go to My Page!</A> </BODY> </HTML>



Explanation:
Wherever we wish to include something that changes (The title, the page the link pointed to) we simply insert a Perl variable.

Here is another example, with a few more sections being determined by the program:
<HTML> <HEAD> <TITLE>MySite: $title</TITLE> $aditional_header </HEAD> <BODY BGCOLOR="$bground" TEXT="$text"> $main <BR><BR> <CENTER> $copyright </CENTER> <BR> </BODY> </HTML>



That example is a bit more complex, but it still works. Now, on to how to actually USE the template...


Using the Template:
Using the template is also quite simple. In the program that needs to use the template, simply assign values to each of the Perl variables you declared in the template. Here's an example:

Step one:
Insert this into a file named "common.pl" and place it in the same directory with the template file (I suggest naming the template HTML something simple... like "template.html" and placing them all within a "Template" folder if possible)
#Sub utemplate (use template) Call only when ready to print. sub utemplate { open(TEMPLATE,"/pathtotemplate/template.html") || die("Unable to ac +ess template: $!"); #Open the template file my @template = <TEMPLATE>; #Read it close(TEMPLATE); #Close it my $template = join("",@template); #Move it all into on +e variable $template =~ s/~/\\~/g; #Escape all ~ charac +ters already present. eval("print qq~$template~;"); #Process and print } 1;



Now we are ready to actually USE the template... this is a simple program which really doesn't do anything other than set variables and print the page:
#!/usr/bin/perl use CGI qw(:standard ); #Handy for printing header $CGI::HEADERS_ONCE = 1; #Make sure header is printed only once print header(); require "/pathtocommon/common.pl"; $title = 'First Templated Page'; $additional_header = qq~ <SCRIPT LANGUAGE="JavaScript"> alert("I'm a templated file!"); </SCRIPT>~; $bground = "#000000"; $text = "#ffffff"; $main = "Templating Rocks!"; $copyright = "(C) 2001 MyCompany"; &utemplate;



Explanation:
This simple little bit of code takes all the variables used in the template and evaluates them. Causing Perl to replace all the variables in the template... with the values of the variable in the program.

This means that the title line now reads <TITLE>MySite: First Templated Page</TITLE>


Conclusion:
That was a brief explanation of how to create those types of templates. More little hints and tips can be found just below this paragraph.


Hints & Tips:
If you have a variable that you don't think you will need to change often (IE: The copyright variable in the example) then declare it within common.pl to mean what it will normally mean.

You can actually have Perl execute any PHP you have on the template by using the LWP module (or sockets) to get the file, here's an example of how to do that (New version of common.pl):
use LWP::Simple; sub utemplate { my $template = get("http://yoursite.com/Templates/template.html"); $template =~ s/~/\\~/g; eval("print qq~$template~;"); die($@) if($@); } 1;


Try to keep all the template variables in the same case to prevent mistakes with $MAIN vs $Main or $main

This system actually works with PHP pages as well as Perl due to the similar use of variables.


Example Site:
Although it won't be obvious, this site uses this template system. (Ok, shameless plug... it's my site)


Final Notes:
I hope someone out there finds this useful. There may be a few mistakes in syntax as I wrote this just after I woke up. If you find one, please point it out and I'll try to have it corrected.

To use a $ in your template, you will need to escape it like you would in any perl string. \$ The same may apply to &, % and @.

Warning: This method does NOT work with use strict enabled... you may disable use strict around it however using no strict at the start and use strict once more at the bottom. To use 'no strict' you will need to place all of the code for the template into a block of it's own. Eg:
#!/usr/bin/perl use strict; use warnings; use CGI qw(:standard ); #Handy for printing header $CGI::HEADERS_ONCE = 1; #Make sure header is printed only once print header(); { no strict; require "/pathtocommon/common.pl"; $title = 'First Templated Page'; $additional_header = qq~ <SCRIPT LANGUAGE="JavaScript"> alert("I'm a templated file!"); </SCRIPT>~; $bground = "#000000"; $text = "#ffffff"; $main = "Templating Rocks!"; $copyright = "(C) 2001 MyCompany"; &utemplate; } #Continue with everything else you had to do



Other Templating Options:
HTML::Mason (Mentioned by wog )
Generic Search: Template

In reply to Template with optional PHP execution by Flame

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others about the Monastery: (4)
    As of 2014-10-25 11:56 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      For retirement, I am banking on:










      Results (143 votes), past polls