One Perl Practice With Database MYSQL

mysql_select.pl:

 

use strict;
use DBI;
#my($dbh) = DBI->connect("DBI:mysql:it-community", "root", "jxcoco1128", "") or die "can't connect!\n";
my $dbh = DBI->connect("DBI:mysql:database=it-community;host=localhost", "root", "jxcoco1128", {'RaiseError'=>1});

my $sql = "select * from micro_blogging";
my $sth = $dbh->prepare($sql);
$sth->execute();
print "======================================================================================================================\n";
#
while (my @array=$sth->fetchrow_array())
{
printf("%-35s", $_) foreach(@array);
print "\n----------------------------------------------------------------------------------------------------------------------\n";
};
print "======================================================================================================================\n";
$dbh->disconnect();
exit 0;

 

 

perl mysql_select.pl:

 

D:\home\admin\workstation\perl>perl mysql_select.pl
======================================================================================================================
1                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
10                                 微博信息                           描述内容                           用户名
----------------------------------------------------------------------------------------------------------------------
2                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
3                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
4                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
5                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
6                                  c1                                 d1                                 u1
----------------------------------------------------------------------------------------------------------------------
7                                  c1                                 d1                                 用户名
----------------------------------------------------------------------------------------------------------------------
8                                  微博信息                           描述内容                           用户名
----------------------------------------------------------------------------------------------------------------------
9                                  微博信息                           描述内容                           用户名
----------------------------------------------------------------------------------------------------------------------
======================================================================================================================