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
运维网声明
1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网 享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com