Perl DBI使用实例

最新推荐文章于 2025-08-20 11:47:50 发布

转载最新推荐文章于 2025-08-20 11:47:50 发布 · 91 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xiaoCon/archive/2013/02/26/2934327.html

文章标签：

#数据库

#!/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();

转载于:https://www.cnblogs.com/xiaoCon/archive/2013/02/26/2934327.html