AI时代，找源码已成为过去式，纪念我过去的十年0(回)
69天前
还有人吗2(回)
87天前会python真的可以为所欲为0(回)
567天前
这里还有人吗2(回)
752天前这里还有人吗0(回)
752天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
977天前#!/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) 回复
？？
回复评论