Is there a fucntion like include in perl/cgi

Tempestshade · #1 (**permalink**) 01-24-05, 06:09 PM

Is there a fucntion like include in perl/cgi like in php?

PoizOn · #2 (**permalink**) 01-25-05, 12:48 AM

Use templates, better. See HTML::Template.

Tempestshade · #3 (**permalink**) 01-25-05, 01:10 PM

hrm.... can u show me how to use that?

PoizOn · #4 (**permalink**) 01-26-05, 12:38 AM

Into template file, you can use next command:

<TMPL_INCLUDE NAME="file-name.html">

When you output this template, file - "file-name.html" will be included into your document...

http://html-template.sourceforge.net/ - download this module.

http://html-template.sourceforge.net/article.html - docs

example from me:

template.html:

Code:

  <HTML>
    <HEAD>
       <TITLE>Test Template</TITLE>
    </HEAD>
    <BODY>
       My Home Directory is <TMPL_VAR NAME="home">.
       My Path is set to <TMPL_VAR NAME="path">.
       My include:<br>
    <TMPL_INCLUDE NAME="file-name.html">
    </BODY>
  </HTML>

file-name.html

Code:

        <TABLE BORDER=1>
            <TR>
              <TD><B>Fruit Name</B></TD>
              <TD><B>Color</B></TD>
              <TD><B>Shape</B></TD>
            </TR>
       </TABLE>

script.cgi

Code:

use HTML::Template;

  # open the HTML template
  my $template = HTML::Template->new(
                                                                       filename => 'template.html',
                                                                       path => '/path/to/template'
                                                                         );

  # fill in some parameters in the template
  $template->param(home => $ENV{HOME});
  $template->param(path => $ENV{PATH});

  # send the obligatory Content-Type
  print "Content-Type: text/html\n\n";

  # print the template
  print $template->output;

Try it. It's very usefull.