Perl连接数据库包

ample笔记

于 2020-09-02 18:01:20 发布

阅读量220

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl

本文链接：https://blog.youkuaiyun.com/qq_41240580/article/details/108366939

本文介绍了如何使用Perl语言连接和操作数据库，包括选择合适的数据库连接模块、配置连接参数以及执行SQL查询的基本步骤，帮助Perl开发者更好地进行数据库交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl 
package db;
require Exporter;
BEGIN {
   
	@ISA		= qw(Exporter AutoLoader);
}

@EXPORT = qw(); 
use strict;
use Data::Dumper qw/Dumper /;

#--------------------------------------------
#Function: getDBINFO
#Scope   : private
#功能: 	  定义一个可供连接的数据库列表,实现对数据库连接的统一管理
#--------------------------------------------
sub getDBINFO
{
   
	my %DBINFO=
	(
		default	=>"xe",
		xe =>{
   
					ip	=>"10.3.1.100",
					port	=>"1521",
					dbname	=>"palm",
					user	=>"user",
					passwd	=>"pwd",
					dbtype	=>"oracle",
				},
				
		mysql =>{
   
					ip	=>"172.16.1.100",
					port	=>"3307",
					dbname	=>"market",
					user	=>"pwd",
					passwd	=>"palm\@mkt",
					dbtype	=>"mysql",
				},

				
	);
	return %DBINFO;
}

sub new
{
   
    my $this={
   };
    bless $this;
    my $dbinfo=$_[1];
    my %DBINFO = $this->getDBINFO();
    if ($dbinfo eq ''){
   
    	$dbinfo=$DBINFO{
   'default'};
    }
    $this->set_dbinfo($dbinfo);
		$this->setAutoCommitOn();
    if (exists($DBINFO{
   $dbinfo}))
  	{
   
  		my %HASH_TEMP = %