Linux環境下Perl語言對數據庫的操縱_自動測試腳本語言

Linux環境下Perl語言對數據庫的操縱

發表于：2007-06-11來源：作者：點擊數：標簽：

實例：同一主機下的運行

主機配置：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);

原文轉自：http://www.kjueaiud.com

軟件測試 > 測試開發技術 > 軟件測試開發語言 > 自動測試腳本語言 >