Perl + mysql

本文通过一个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();
<>;


效果:

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值