Perl DBI使用实例

#!/usr/bin/perl

#set module
use DBI;

#scanf the mysqluser
print "请输入mysql帐号:\n";
chomp($mysql_n=<STDIN>);
print "请输入mysql密码:\n";
chomp($mysql_p=<STDIN>);
print "请输入需要连接的数据库:\n";
chomp($mysql_d=<STDIN>);

#connect mysql
my $in=DBI->connect("DBI:mysql:database=$mysql_d;host=localhost","$mysql_n","$mysql_p",{'RaiseError'=>1});
#select databases;
my $select=$in->prepare("select * from people");
$select->execute();

#print the list
while(my $list=$select->fetchrow_hashref()){
  print "$list->{'username'}\t";
  print "$list->{'password'}\t";
  print "$list->{'number'}\t";
  print "$list->{'year'}\t";
}
print "\n";
#close mysql
$in->disconnect();