论坛 › Perl › perl DBI

515439429 发表于 2017-5-16 12:13:49

perl DBI

#!/usr/bin/perl
use DBI;
$db=
DBI->connect('DBI:mysql:test;user=root;password=1q2w3e');
$sth=$db->prepare("SELECT * FROM test")
or die "Can't prepare sql statement". DBI->errstr;
$sth->execute();
print qq(\n\tContents of "test" table\n);
$sth->dump_results();
$sth->finish();
$db->disconnect();

查看完整版本: perl DBI