perl 操作mysql 数据库

最新推荐文章于 2024-07-13 14:32:00 发布

原创最新推荐文章于 2024-07-13 14:32:00 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

数据库同时被 2 个专栏收录

111 篇文章

订阅专栏

Perl

81 篇文章

订阅专栏

本文提供了一个使用Perl脚本连接MySQL数据库并查询数据的示例代码。该脚本利用DBI模块进行数据库交互，展示了如何建立连接、执行SQL查询及处理查询结果。

#! /usr/bin/perl

use DBI;
my $driver="DBI:mysql";
my $host="10.21.1.62";
my $port=3306;
my $database="mario";
my $user="root";
my $passwd="Paic1234";
my $rules="mo_alert_set";

my $dbh = DBI->connect("$driver:database=$database;host=$host;port=$port;user=$user;password=$passwd") or die "Can't connect: " . DBI->errstr;

my $sth=$dbh->prepare("select * from $rules");

$sth->execute() or die "Can't prepare sql statement". $sth->errstr;

# 打印获取的数据
while(@recs=$sth->fetchrow_array){
my $length = @recs;

foreach my $i ( 0 .. $length) {
print @recs[$i].",";
}
print "\n";
}

$sth->finish();
$dbh->disconnect();