czhtr 发表于 2018-9-1 06:42:03

Ubuntu Server最佳方案——LAMP服务器之Perl篇

5.1         file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image001.gif安装Perl模块
  安装完后,apache的perl模块就安装好了
  $ sudo apt-get install libapache2-mod-perl2
5.2         file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image002.gif配置cgi-bin目录
  Perl的网页程序一般都是以CGI的模式来运行,创建cgi-bin目录,并修改虚拟主机的配置
  ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/
  
  AllowOverride None
  Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch
  Order allow,deny
  Allow from all
  
5.3         file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image003.gifPerl程序测试
  创建test目录并创建测试页面
  $ sudo mkdir /usr/lib/cgi-bin/test
  $ sudo nano /usr/lib/cgi-bin/test/test.pl
  测试页面的内容
  #!/usr/bin/perl -w
  
  print "Content-type: text/html\n\n";
  print "Hello, World.";
  给与执行权限
  $ sudo chmod a+x /usr/lib/cgi-bin/test/test.pl
  打开浏览器即可进行测试
5.4         file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image004.gif用Perl访问MySQL数据库
  创建连接数据库的测试页面dbtest.pl
  #!/usr/bin/perl
  
  use DBI;
  
  # 连接数据库
  my $dbh = DBI->connect("DBI:mysql:database=mydb;host=localhost","username","passw ord", {'RaiseError' => 1});
  
  # 查询
  my $sqr = $dbh->prepare("SELECT name, mail FROM users");
  $sqr->execute();
  
  # 打印结果
  while(my $ref = $sqr->fetchrow_hashref()) {
  print "$ref->{'name'}, $ref->{'mail'}\n";
  }
  
  # 关闭数据库连接
  $dbh->disconnect();
  在命令行进行测试
  $ perl /var/www/dbtest.pl
  Hiweed, hiweed@test.com
  Ning, ning@test.com
  Guoce, guoce@test.com
  复制到网站目录进行测试
  $ sudo cp /var/www/dbtest.pl /usr/lib/cgi-bin/test/
  浏览器报告500的错误,是因为脚本不符合CGI规范,在脚本的print语句钱加上下面一行,使符合规范
  print "Content-type: text/html\n\n";
  修改后的脚本如下
  #!/usr/bin/perl
  
  use DBI;
  
  my $dbh = DBI->connect("DBI:mysql:database=mydb;host=localhost","username", "passw ord", {'RaiseError' => 1});
  
  my $sqr = $dbh->prepare("SELECT name, mail FROM users");
  $sqr->execute();
  
  print "Content-type:text/html\n\n";
  
  while(my $ref = $sqr->fetchrow_hashref()) {
  print "$ref->{'name'}, $ref->{'mail'}\n\n";
  }
  
  $dbh->disconnect();
  给与执行权限
  $ sudo chmod 755 /usr/lib/cgi-bin/test/dbtest.pl
file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image005.gif5.6实例:用Twiki假设Wiki
5.6.1安装Twiki
  Twiki是一个用perl编辑的Wiki软件,十分灵活。
  安装
  $ sudo apt-get install twiki
  安装完后,直接访问http://192.168.1.10/cgi-bin/twiki/就可以
5.6.2          配置Twiki
  如果访问http://192.168.1.10/cgi-bin/twiki/跳转到http://localhost/cgi-bin/twiki/,则需要修改配置文件。twiki的配置文件在/etc/twiki目录下,修改/etc/twiki/apache.conf文件中设置的RedirectMatch如下
  RedirectMatch /twiki/?$ http://localhost/cgi-bin/twiki/view$1
  RedirectMatch /twiki(/(.*)?)?$ http://localhost/cgi-bin/twiki/view$1
/etc/twiki/LocalSite.cfg配置文件也很重要,是twiki的主要配置文件,里面包括了数据目录、网站语言、登陆认证等方面的设置
  文章整理来自于《Ubuntu Server最佳方案》书籍
  由于字数限制,笔记可能无法全部上传,请下载笔记

页: [1]
查看完整版本: Ubuntu Server最佳方案——LAMP服务器之Perl篇