Perl + mysql

最新推荐文章于 2023-10-03 19:10:17 发布

原创最新推荐文章于 2023-10-03 19:10:17 发布 · 832 阅读

0 ·

CC 4.0 BY-SA版权

Perl 专栏收录该内容

14 篇文章

订阅专栏

本文通过一个Perl脚本示例展示了如何使用DBI模块连接MySQL数据库、创建数据库和表、插入数据以及查询数据的过程。脚本首先创建了一个名为gspider的数据库，并设置了字符集为gbk，接着创建了一个包含id和name两个字段的表，并向该表中插入了几条测试数据，最后查询了所有记录并打印出来。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

strawberry

#!/usr/bin/perl
use strict;
use DBI;

# 连接到数据库，创建数据库
my  $dbh = DBI->connect("DBI:mysql:test:localhost","root","test",{ RaiseError => 1, AutoCommit => 0 });
    $dbh->do("CREATE SCHEMA IF NOT EXISTS `gspider` DEFAULT CHARACTER SET gbk COLLATE gbk_chinese_ci");
    $dbh->commit();
    $dbh->disconnect();
# 连接到新的数据库
my  $dbh = DBI->connect("DBI:mysql:gspider:localhost","root","test",{ RaiseError => 1, AutoCommit => 0 });
    $dbh->do("SET character_set_connection = 'gbk' ");
    $dbh->do("SET character_set_client = 'gbk' ");
    $dbh->do("SET character_set_results = 'gbk' ");
    
# 创建表
$dbh->do("CREATE TABLE IF NOT EXISTS t (id INT PRIMARY KEY, name VARCHAR(16))");                
# 插入数据
$dbh->do("insert into t values(1,'我来了')");
$dbh->do("insert into t values(2,'good')");
$dbh->do("insert into t values(3,'g很好')");

#查询数据
my $sql = "SELECT * FROM t";
my $dbconn = $dbh->prepare($sql);
$dbconn->execute();

my $table = $dbconn->fetchall_arrayref;
my($i, $j);
for $i ( 0 .. $#{$table} ) {
    for $j ( 0 .. $#{$table->[$i]} ) {
        print "$table->[$i][$j]\t";
    }
    print "\n";
}

$dbh->commit();
$dbh->disconnect();
<>;

效果：