DBI, connect(), prepare(), execute(), fetchrow_array()

最新推荐文章于 2025-07-15 11:23:55 发布

转载最新推荐文章于 2025-07-15 11:23:55 发布 · 696 阅读

Perl 专栏收录该内容

35 篇文章

订阅专栏

本文提供了一个使用Perl语言通过DBI模块连接MySQL数据库并查询所有系统变量的示例脚本。该脚本展示了如何利用Perl进行基本的数据库操作。

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

my $dbh = DBI->connect("dbi:mysql:dbname", 'user','passwd', '') 
or die "can't connect!\n"; 
my $sql = qq/show variables/; 
my $sth = $dbh->prepare($sql); 
$sth->execute(); 

while(my @array=$sth->fetchrow_array()) 
{ 
   printf("%-35s", $_) foreach(@array); 
   print "\n"; 
} 
$dbh -> disconnect(); 
exit 0;