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