Perl 链接数据库

#!/bin/perl

# 使用PERL的DBI连接MySQL数据库

use DBI;

#Connection to target DB
my $db_handle = DBI->connect("DBI:mysql:database=dbTest;host=localhost","username","password",{"RaiseError"=>1});

# Insert one row
my $rows = $db_handle->do("insert into mytable (`id`,`username`) values ('1','User_1_sosgoo')");

# Query
my $sqr=$db_handle->prepare("select * from mytable");
$sqr->execute();

while (my $ref=$sqr->fetchrow_hashref()){
    print "$ref->{'username'}\n";
}