linux环境下perl语言对数据库的操纵

实例：同一主机下的运行

主机配置：piii450 128m 15gb

操作系统：red hat linux 6.1

数据库：mysql-3.22.29

建议使用rpm方式安装，至少要安装下面三个包：

mysql-3.22.29-1.i386.rpm

mysql-client-3.22.29-1.i386.rpm

mysql-devel-3.22.29-1.i386.rpm

www服务器：apache 1.3.6 for linux

perl 解释器：version 5.005_03 built for i386-linux

dbi: 版本为：1.13

data-showtable: 版本为：3.3

dbd: msql-mysql-modules-1.2018

本人成功地在上述环境下实现了对mysql 数据库的访问。与windows环境下的数据库不同，它不需要建立外部数据源.

下面是一个应用的简单例子：

为了统计用户访问我们的网站的次数，我们建立了一个数据库, 在其中建一个表，表名为：usedata, 共有三列：userno,userpass,lognum,分别代表用户名,密码,登录次数.

假定我们使用test数据库，在该库中创建表usedata, 我们既可以编一个perl程序实现，也可以在命令行方式下实现：

 

#mysql test 

>create table usedata(userno char(8) not null, usepass char(8) not null, lognum int); 

>exit 

共有两个htm文件，两个pl文件. 

regist.htm <html> 

<head> 

<meta http-equiv=\"content-type\" 

content=\"text/html; charset=gb_2312-80\"> 

<meta name=\"generator\" content=\"microsoft frontpage express 2.0\"> 

<title>注册</title> 

</head> 

<body> 

<center>用户在线注册</center> 

 

<form action=\"/cgi-bin/database/regist.pl\" method=\"post\"> 

<table border=\"0\"> 

<td valign=\"top\">用户名<input type=text name=\idno\ size=4 maxlength=8> 

<td valign=\"top\">密码<input type=password name=\pass\ size=6 maxlength=8> 

</table> 

<input type=\"submit\" 

value=\"注册\"> <input type=\"reset\" value=\"清除\"> 

</form> 

</body> 

</html> 

login.htm <html> 

<head> 

<meta http-equiv=\"content-type\" 

content=\"text/html; charset=gb_2312-80\"> 

<meta name=\"generator\" content=\"microsoft frontpage express 2.0\"> 

<title>登录</title> 

</head> 

<body> 

<center>用户在线登录</center> 

 

<form action=\"/cgi-bin/database/login.pl\" method=\"post\"> 

<table border=\"0\"> 

<td valign=\"top\">用户名<input type=text name=\idno\ size=4 maxlength=8> 

<td valign=\"top\">密码<input type=password name=\pass\ size=6 maxlength=8> 

</table> 

<input type=\"submit\" 

value=\"登录\"> <input type=\"reset\" value=\"清除\"> 

</form> 

</body> 

</html> 

regist.pl #!/usr/bin/perl 

# regist.pl

read(stdin, $buffer, $env{\content_length\}); 

@pairs = split(/&/, $buffer); 

foreach $pair (@pairs) { 

($name, $value) = split(/=/, $pair); 

$value =~ tr/+/ /; 

$value =~ s/%([a-fa-f0-9][a-fa-f0-9])/pack(\"c\", hex($1))/eg; 

$value =~ s///g; 

$value=~ s/<([^>]\\n)*>//g; 

$value=~ s/>/>/g; 

$value=~ s/</</g; 

$form{$name} = $value; 

}

print \"content-type: text/html\\n\\n\";

print \"<html><head><title>注册</title></head>\\n\";

print \"<body bgcolor=#ffffff>\\n\";

 

if ($form{\idno\} eq \"\") 

{ 

print<<eof; 

<center>用户名不能为空! 

返回<a href=\javascript:history.go(-1);\>前页</a>修改 

</center> 

eof 

exit(0); 

}

if ($form{\pass\} eq \"\") 

{ 

print<<eof; 

<center>密码不能为空! 

返回<a href=\javascript:history.go(-1);\>前页</a>修改 

</center> 

eof 

exit(0); 

}

$host= shift \"\"; 

$test_db=\"test\"; 

$opt_user=$opt_password=\"\";

use dbi;

$= 1; # autoflush

$table=\"usedata\";

$dbh = dbi->connect(\"dbi:mysql:$test_db:$host\",$opt_user,$opt_password) die \"can\t connect: $dbi::errstr\\n\";

$n1 = $form{\idno\};

$sth=$dbh->prepare(\"select * from usedata where userno=$n1 \") or die $dbh->errstr;

$sth->execute() or die $sth->errstr;

if (($row = $sth->fetchrow_arrayref)) 

{ 

$dbh->disconnect(); 

print<<eof; 

<center>用户名已存在! 

返回<a href=\javascript:history.go(-1);\>前页</a>修改 

</center> 

eof 

exit(0); 

} 

$n2 = $form{\pass\}; 

$n3 = 1; 

$dbh->do(\"insert into $table values($n1, $n2,$n3)\") or die $dbi::errstr;

$dbh->disconnect(); 

print<<eof; 

<center>您已注册成功!</center> 

</body></html> 

eof 

exit(0);

login.pl #!/usr/bin/perl 

# login.pl

read(stdin, $buffer, $env{\content_length\}); 

@pairs = split(/&/, $buffer); 

foreach $pair (@pairs) { 

($name, $value) = split(/=/, $pair); 

$value =~ tr/+/ /; 

$value =~ s/%([a-fa-f0-9][a-fa-f0-9])/pack(\"c\", hex($1))/eg; 

$value =~ s///g; 

$value=~ s/<([^>]\\n)*>//g; 

$value=~ s/>/>/g; 

$value=~ s/</</g; 

$form{$name} = $value; 

}

print \"content-type: text/html\\n\\n\";

print \"<html><head><title>登录</title></head>\\n\";

print \"<body bgcolor=#ffffff>\\n\";

 

if ($form{\idno\} eq \"\") 

{ 

print<<eof; 

<center>用户名不能为空! 

返回<a href=\javascript:history.go(-1);\>前页</a>修改 

</center> 

eof 

exit(0); 

}

if ($form{\pass\} eq \"\") 

{ 

print<<eof; 

<center>密码不能为空! 

返回<a href=\javascript:history.go(-1);\>前页</a>修改 

</center> 

eof 

exit(0); 

}

$host= shift \"\"; 

$test_db=\"test\"; 

$opt_user=$opt_password=\"\"; 

use dbi; 

$= 1; # autoflush

$table=\"usedata\";

$dbh = dbi->connect(\"dbi:mysql:$test_db:$host\",$opt_user,$opt_password) die \"can\t connect: $dbi::errstr\\n\";

$n1 = $form{\idno\}; 

$sth=$dbh->prepare(\"select * from usedata where userno=$n1 \") or die $dbh->errstr;

$sth->execute() or die $sth->errstr; 

if (($row = $sth->fetchrow_arrayref)) 

{ 

if ($row->[1] eq $form{\pass\}) 

{ 

$num = $row->[2]+1; 

$sth=$dbh->prepare(\"update usedata set lognum=$num where userno=$n1 \") or die $dbh->errstr; 

$sth->execute() or die $sth->errstr; print<<eof; 

<center>您第 $num 次登录!</center> 

eof 

} 

else 

{ 

print<<eof; 

<center>密码不正确! 

返回<a href=\javascript:history.go(-1);\>前页</a>修改 

</center> 

eof 

} 

} 

else 

{ 

print<<eof; 

<center>用户名不正确! 

返回<a href=\javascript:history.go(-1);\>前页</a>修改 

</center> 

eof 

} 

$dbh->disconnect(); 

print <<eof; 

</body></html> 

eof 

exit(0);

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

linux环境下perl语言对数据库的操纵

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

linux环境下perl语言对数据库的操纵

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范