Perl DBI使用实例

概述#!/usr/bin/perl#set moduleuse DBI;#scanf the mysqluserprint "请输入mysql帐号:\n";chomp($mysql_n=<STDIN>);print "请输入mysql密码:\n";chomp($mysql_p=<STDIN>);print "请输入需要连接的数据库:\n";chomp($my

#!/usr/bin/perl#set moduleuse DBI;#scanf the MysqLuserprint "请输入MysqL帐号:\n";chomp($MysqL_n=<STDIN>);print "请输入MysqL密码:\n";chomp($MysqL_p=<STDIN>);print "请输入需要连接的数据库:\n";chomp($MysqL_d=<STDIN>);#connect MysqLmy $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 Listwhile(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();

总结

以上是内存溢出为你收集整理的Perl DBI使用实例全部内容，希望文章能够帮你解决Perl DBI使用实例所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。