Perl Language(VII) Web Programming

sillycat

浏览: 2542857 次
性别:
来自: 成都

最近访客更多访客>>

huageng520

learnmore

u012363178

ymgjava

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

博客分类：

Scripts

Perl Web CGI Apache HTML

Perl Language(VII) Web Programming

16. Perl and Web
CGI (Common Gateway Interface)   -----> FastCGI ------> Apache mod_perl

16.1 CGI
use CGI;

my $q = CGI->new;
$h = $q->header(-charset => 'utf-8',
        -type => 'text/html');
print $h . "\n";
my $user = $q->param('user');
print $user

console output:
Content-Type: text/html; charset=utf-8

my @params = $q->params();

$q->redirect('http://url.you.want/');

print $q->textfield( -name=>'field',
                     -default=>'default value');

error message:
if ($q->cgi_error) {
   print "無法處理CGI程式";
   print $q->cgi_error;
}

use CGI;
my $q = CGI->new;
my $cookie = $q->cookie('cookie_name');

$cookie = $q->cookie( -name=>'cookie_name',
                      -value=>'value',
                      -expires=>'+1h',
                      -domain=>'.my.domain',
                      -secure=>1);
print $q->header( -cookie=>$cookie);

16.2 Template
first of all, we need to install tempalte module in cpan
cpan>install Template

use Template;

my $config = {
    INCLUDE_PATH => '/template/path',
    EVAL_PERL    => 1,
};

my $template = Template->new($config);

my $replace = "var put in template";
my $vars = {
    var => $replace,
};

my $temp_file = 'template.html';
my $output;
$template->process($temp_file, $vars, $output)
    || die $template->error();

But there is one error in apache error.log file:
[Wed Apr 27 19:28:05 2011] [error] [client 127.0.0.1] malformed header from script. Bad header=<html>: Action.pl

I fix this problem:
print "Content-Type: text/html\n\n", $output;
$template->process($temp_file, $vars, $output)
    || die $template->error();

foreach
[% FOREACH grade = grades %]
Price：[% grade %]
[% END %]

Perl code
[% PERL %]
   # perl code
   ....
[% END %]

[% INCLUDE copyright.html %]

copyright.html file content is:
<p>here is footer by sillycat</p>

[% IF condition %]
   ....
[% END %]

or

[% IF condition %]
   ....
[% ELSE %]
   ....
[% END %]

[% IF condition %]
   ....
[% ELSIF condition2 %]
   ....
[% ELSE %]
   ....
[% END %]

[% UNLESS condition %]
   ....
[% END %]

16.3 Mason

references:
http://easun.org/perl/perl-toc/
http://perl.apache.org/
http://www.4webhelp.net/tutorials/cgi/env_vars.php
http://www.cgi101.com/class/ch3/text.html

分享到：

Using ApacheMQ with Perl Client | Using Geo to locate the IP address

2011-04-28 12:18
浏览 1440
评论(0)
分类:编程语言
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论