MySQLに接続する方法

カスタム検索

MySQLに接続する方法

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');

カスタム検索