基于 centos7lamp 架构用 perl

最新推荐文章于 2024-07-20 19:56:01 发布

Linux运维教父

最新推荐文章于 2024-07-20 19:56:01 发布

阅读量343

点赞数 10

文章标签： perl apache mysql linux

本文链接：https://blog.csdn.net/2201_75980870/article/details/135722989

版权

安装apache
yum -y install httpd
安装perl
yum -y install perl
安装依赖包
yum -y install mod_perl
配置httpd启动模块
vim /etc/httpd/conf/httpd.conf
开启模块
LoadModule cgi_module modules/mod_perl.so
指定脚本路径
<Directory "var/www/html">
Options +ExecCGI
AddHandler cgi-script .cgi .pl
</Directory>

perl连接mysql
安装mariadb
yum -y install mariadb mariadb-server
安装perl连接模块
yum install perl-DBI

在apache网页目录用perl脚本测试连接
#!/usr/bin/perl

use strict;use warnings;
use DBI;

my $driver = "mysql";
my $database = "perl";
my $hostname = "localhost";
my $port = "3306";
my $user = "perl";
my $password = "123456";

# 连接到 MySQL 数据库
my $dsn = "dbi:$driver:database=$database;host=$hostname;port=$port";
my $dbh = DBI->connect($dsn, $user, $password);

# 输出结果
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>MySQL 页面</title>\n";
print "</head>\n";
print "<body>\n";
if ($dbh) {
print "<h1>连接成功！</h1>\n";
} else {
print "<h1>连接失败！</h1>\n";
print "<p>Error message: $DBI::errstr</p>\n";
}
print "</body>\n";
print "</html>