perlDBI程序进行数据采集.docxVIP

???? 最近在写perl程序进行数据的采集，perl教程在网上少的可怜呐，至少我找到的资料是很少的。在连接数据库方面下面这个博客写的还是很清晰的，所以就转过来了。 源文地址： HYPERLINK /like_zhz/article/details/5441946 /like_zhz/article/details/5441946 DBI和DBD的不同关系模型： ##########################################################################可移植的DBI方法：connect 建立到一个数据库服务器的连接disconnect 断开数据库服务器的连接prepare 准备执行一个SQL语句execute 执行准备好的语句do 准备并执行一个SQL语句quote 加引号于要插入的字符串或BLOB值fetchrow_array 作为一个字段数组取出下一行fetchrow_arrayref 作为一个字段的引用数组取出下一行fetchrow_hashref 作为一个哈希表的引用取出下一行fetchall_arrayref 作为一个字段数组取???所有数据finish 完成一条语句并且让系统释放资源rows 返回受影响的行数data_sources 返回可在localhost上得到的数据库的数组ChopBlanks 控制fetchrow_*方法是否剥去空格NUM_OF_PARAMS 在准备的语句中的占位(placeholder-参数)的数目NULLABLE 其列可以是NULLtrace 执行调试跟踪##########################################################################$dbh 数据库句柄$sth 语句句柄$rc 返回代码(经常是一个状态)$rv 返回值(经常是一个行数)##########################################################################①connect($data_source, $username, $password)?使用connect方法使得一个数据库连接到数据源。$data_source值应该以DBI:driver_name:开始。以DBD::mysql驱动程序使用connect的例子：$dbh = DBI-connect(DBI:mysql:$database, $user, $password);$dbh = DBI-connect(DBI:mysql:$database:$hostname,$user, $password);$dbh = DBI-connect(DBI:mysql:$database:$hostname:$port,$user, $password); ②disconnect?disconnect方法从数据库断开数据库句柄。它一般就在你从程序退出之前被调用。范例：$rc = $dbh-disconnect;prepare($statement)?准备一条由数据库引擎执行的SQL语句并且返回语句句柄($sth)，你可以使用它调用execute方法。一般地你借助于prepare和execute来处理SELECT语句(和类SELECT语句，例如SHOW、DESCRIBE和EXPLAIN)。范例：$sth = $dbh-prepare($statement)or die Cant prepare $statement: $dbh-errstr/n;③execute?execute方法执行一个准备好的语句。对非SELECT语句，execute返回受影响的行数。如果没有行受影响，execute返回0E0，Perl将它视作零而不是真。对于SELECT语句，execute只是在数据库中启动SQL查询；你需要使用在下面描述的fetch_*方法之一检索数据。范例：$rv = $sth-executeor die cant execute the query: $sth-errstr;④do($statement)?do方法准备并且执行一条SQL语句并且返回受影响的行数。如果没有行受到影响，do返回0E0，Perl将它视为零而不是真。这个方法通常用于事先无法准备好(由于驱动程序的限制)或不需要执行多次(插入、删除等等)的非SELECT语句。范例：$rv = $dbh-do($statement)or die Cant execute $statement: $dbh- errstr/n;⑤quote($str