大佬教程收集整理的这篇文章主要介绍了如何重构使用带有DBI的Template Toolkit的Perl代码来利用FastCGI?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
下面是使用CGI抓取提交的表单数据的典型Perl代码片段(sample.pl),将表单数据传递给DBI,DBI然后从MySQL检索所需的行,然后将结果交给Template Toolkit呈现为HTML文档以供显示.
sample.pl的代码清单:
#!/usr/bin/perl use Strict; use CGI; use DBI: use Template; #Grab submitted form data my $cgi = CGI->new(); my $idFromSomewhere= $cgi->param('id'); my $driver = "mysql"; my $server = "localhost:3306"; my $database = "test"; my $url = "DBI:$driver:$database:$server"; my $user = "apache"; my $password = ""; #Connect to database my $db_handle = DBI->connect( $url,$user,$password ) or die $DBI::errstr; #SQL query to execute my $sql = "SELECT * FROM tests WHERE id=?"; #Prepare SQL query my $statement = $db_handle->prepare($sql) or die "Couldn't prepare query '$sql': $DBI::errstr\n"; #Execute SQL Query $statement->execute($idFromSomewherE) or die "Couldn't execute query '$sql': $DBI::errstr\n"; #Get query results as hash my $results = $statement->fetchall_hashref('id'); $db_handle->disconnect(); my $tt = Template->new(); #HTML output template my $input = 'template.html'; my $vars = { tests => $results,}; #Process template and output as HTML $tt->process($input,$vars) or die $tt->error();
为了获得更好的性能和可伸缩性,提供共享服务器的Web主机(如Dreamhost)强烈建议所有生产的Perl脚本都支持FastCGI. FastCGI文档非常清楚如何修改现有的Perl代码以支持FastCGI.下面的简单代码通常作为示例给出:
use FCGI; while (FCGI::accept >= 0) { #Run exisTing code. }
什么不太清楚的是在while循环中放置的位置和内容.
子问题
一个.
应该将sample.pl中的代码简单地包装在现有代码中,如下所示:
while (FCGI::accept >= 0) { #Grab submitted form data my $cgi = CGI->new(); ... ... #Process template and output as HTML $tt->process($input,$vars) or die $tt->error(); }
B.
或者还有更多吗?例如,处理cgi,数据库和模板的代码是否应该重构为自己的子代码?
C.
如果DBI-> connect()和$db_handle->在循环中在FCGI内部或外部调用disconnect(),那么性能影响是什么?
D.
应该在循环中在FCGI内部还是外部调用$tt-> process()?
转换为使用CGI :: Fast的示例将是:
#!/usr/bin/perl use Strict; use CGI::Fast; use DBI; use Template; my $driver = "mysql"; my $server = "localhost:3306"; my $database = "test"; my $url = "DBI:$driver:$database:$server"; my $user = "apache"; my $password = ""; #Connect to database my $db_handle = DBI->connect( $url,$password ) or die $DBI::errstr; while ( my $cgi = CGI::Fast->new() ) { #Grab submitted form data my $idFromSomewhere = $cgi->param( 'id' ); #SQL query to execute my $sql = "SELECT * FROM tests WHERE id=?"; #Prepare SQL query my $statement = $db_handle->prepare( $sql ) or die "Couldn't prepare query '$sql': $DBI::errstr\n"; #Execute SQL Query $statement->execute( $idFromSomewhere ) or die "Couldn't execute query '$sql': $DBI::errstr\n"; #Get query results as hash my $results = $statement->fetchall_hashref( 'id' ); my $tt = Template->new(); #HTML output template my $input = 'template.html'; my $vars = { tests => $results,}; #Process template and output as HTML $tt->process( $input,$vars ) or die $tt->error(); }
至于你的子问题:
> A:
除非您100%确定自己知道自己在做什么,否则不要使用FCGI.你绝对想要CGI :: Fast
以上是大佬教程为你收集整理的如何重构使用带有DBI的Template Toolkit的Perl代码来利用FastCGI?全部内容,希望文章能够帮你解决如何重构使用带有DBI的Template Toolkit的Perl代码来利用FastCGI?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。