Perl DBI使用例

#!/usr/bin/perl

#set module
use DBI;

#scanf the mysqluser
print "   mysql  :
";
chomp($mysql_n=<STDIN>);
print "   mysql  :
";
chomp($mysql_p=<STDIN>);
print "           :
";
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 "
";
#close mysql
$in->disconnect();