![]()
カスタム検索
|
data-lang="ja">Tweet |
|
![]() |
Modified: 27 July 2008
Created: 17 December 2005
DBIを使って接続する
#!/usr/bin/perl use strict; use DBI; my $dbh = DBI->connect("dbi:mysql:dbname=dbname", 'username', 'password'); my $sth = $dbh->prepare('SELECT * FROM tablename'); $sth->execute(); my @row = $sth->fetchrow_array(); print $row[0]; $dbh->disconnect();
別のサーバー(DB専用サーバーなど)に接続するには、ホスト名も指定します。
my $dbh = DBI->connect("dbi:mysql:dbname=dbname:host=hostname", 'username', 'password');