perl中使用数据库

1. 连接数据库

sub connect_mysql

{
my ? $dbh;
my ? %info = (dbname=>"asteriskcdrdb",
? ? ? ? ? ? ? dbhost=>"localhost",
? ? ? ? ? ? ? dbuser=>"root",
? ? ? ? ? ? ? dbpasswd=>"passw0rd"
? ? ? ? ? ? ? );
? ? ? $dbh = DBI->connect("DBI:mysql:database=库名;host=localhost","用户名","密码")or die "Can't Connect Database Server: $!";
? ? ? return $dbh;

}

2. 搜索数据（变量都需要声明）

$DBH=&connect_mysql();

$sth=$DBH->prepare(select * from 表名 where ?条件);

$sth->execute or $DBH->err;

$row=$sth->fetchrow_hashref();

$sth->finish;

?

3. 插入数据

$DBH=&connect_mysql();

$DBH->do("insert into 表名 set ?字段=值 ");

4.删除数据

$DBH=&connect_mysql();

$DBH->do("delete * ?from 表名 where 条件");

5.更改数据

$DBH=&connect_mysql();

$DBH->do("update 表名 set ?字段=值 ?where 条件");