会python真的可以为所欲为0(回)
379天前
这里还有人吗1(回)
564天前这里还有人吗0(回)
564天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
788天前到处都是羊，不想上班0(回)
868天前
鸽子
0(回)
873天前#!/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; |
by: 发表于：2017-09-11 11:53:10 顶(0) | 踩(0) 回复
？？
回复评论