在 html 中包含 perl cgi 脚本

Question

我想编写一个页眉和页脚 Perl 脚本，它将返回我个人网页的页眉和页脚。我假设我会将该文件包含在我希望它出现的 html 文件部分中。这是我应该采取的方式吗？如果是的话我该怎么做？如果有人对更好的方法有任何其他建议，我会非常感兴趣。谢谢。

Answer 1

如果您的服务器支持，请查看服务器端包含。它们不一定必须用 Perl 编写。

如果没有，并且您的页眉和页脚很简单，请考虑用 Javascript 编写它们。在 HTML 代码中包含一个 Javascript 脚本很容易，该脚本将进行一系列 document.write 调用，然后您就完成了。

如果没有，并且您的页眉和页脚并不简单，并且如果您不懂 Javascript 并且您可能是一个受虐狂，那么仍然考虑使用 Javascript。

可能还有其他一些较新的技术可以实现这一点，这里的年轻自吹自擂者可以告诉你，但对我来说，服务器端包含和 Javascript 并没有被破坏。

Answer 2

查看模板工具包。它允许您插入服务器端代码，该代码在返回页面之前进行评估，因此您可以通过这种方式轻松地将页眉/页脚代码添加到页面。该工具包易于使用，并且可以用 Perl 实现附加功能。

Answer 3

子类 CGI.pm 并添加自定义方法。例如：

MyApp.pm

package MyCGI;

use warnings;
use strict;
use base qw( CGI );

sub page_header {
    my $self = shift;
    return $self->div( { 'id' => 'header' },
        $self->h1('Welcome to my home page') );
}

sub page_footer {
    my $self = shift;
    return $self->div( { 'id' => 'footer' },
        $self->tt('Copyright © 2010. All rights reserved.') );
}

sub content {
    my ( $self, $paragraph ) = @_;
    return $self->div( { 'id' => 'content' }, $self->p($paragraph) );
}

1;

page.pl

#!/usr/bin/env perl

use warnings;
use strict;
use MyCGI;

my $page = MyCGI->new();
print
    $page->header(),
    $page->start_html('My home page'),
    $page->page_header(),
    $page->content('My own content'),
    $page->page_footer(),
    $page->end_html();

然后，只要您需要自定义/子类方法，就可以使用 MyCGI。