PinMarch

« 07.30 AUDが持ち直している | ココ | 07.31 ヤケド »

2006年7月30日

とりあえずのDBI   

Perl,MySQL,and Mac OS X

を見てperlからMySQLに接続して'SHOW TABLES'をするところまでやった。
サーバーがFreeBSDやけど、この部分のコード(perl)に関してはMacOSとか関係ないし。

#!/usr/local/bin/perl

use DBI;

$user = 'aaa';
$passwd = 'xxx';
$dbh = DBI->connect('DBI:mysql:dbname:host', $user, $passwd);

$q = $dbh->prepare("SHOW TABLES");
if (!$q->execute) {
    print "Query Failed.";
    exit;
}

#========================
# Show Data
#========================
while ($record = $q->fetchrow_array) {
    print "$record\n";
}
print "\n";

$q->finish;

$dbh->disconnect;

exit(0);

ようやくデータベースに取り掛かれそう。

By ただ at 15:30 カテゴリー ; Perl , mein Erbe

« 07.30 AUDが持ち直している | 07月の記事 | 07.31 ヤケド »

トラックバック

このエントリーのトラックバックURL:
http://pinmarch.sakura.ne.jp/mt/mt-tb.cgi/589