PerlからMysqlのデータベースに接続

接続例

• (例) mysql_select.pl

#!/usr/bin/perl
use DBI;

$dsn = 'DBI:mysql:test;mysql_socket=$HOME/mymysql/thesock';
                       ### 重要:↑socketを指定 ###
$user = 'user-name';
$password = '';

$dbh = DBI->connect($dsn, $user, $password);
my $sth = $dbh->prepare(
        "SELECT * FROM JUTYUHYOU"
);

$sth->execute;

while(@row = $sth->fetchrow_array){
        print "@row\n";
}

---

topへ