perl连接数据库

wangwengwu

perl连接数据库　　需要DBI模块
　　use DBI;
　　$dbh=DBI->connect($data_source,$user,$passwd);
　　$data_source应该包括需要使用的DBD的信息。postgreSQL的驱动是DBD:Pq，MYSQL是DBD:mysql。
　　例如：“DBI:mysql:database=eygle”，如果要制定连接到其他mysql服务器上，可以使用host=*****。
　　例如：“DBI:mysql:database=eygle;host=*******”。
　　连接上后，就可以对数据库进行操作。
　　插入数据：
　　my $rows=$dbh->do("INSERT INTO test (id, name) VALUES (1, 'eygle')");
　　查询数据：
　　$sth=$dbh->prepare("select * from test");
　　$sth->execute();
　　最后关闭连接：
　　$dbh->disconnect();