[[Perl]] MySQLからデータ抽出 参考 http://www.rfs.jp/sb/perl/dbi/02.html #DBI モジュールの読み込み use DBI; # データソースの指定 $dsn = 'DBI:mysql:データベース名:www:3306'; # データソース $dsn = 'DBI:mysql:データベース名'; # ユーザ名 $user = '****'; # パスワード $password = '****'; # データベースへ接続 $dbh = DBI->connect($dsn, $user, $password, { RaiseError => 1, AutoCommit => 0 }); # prepareが成功した場合、ステートメントハンドルが返されます my $sth = $dbh->prepare( "SELECT * FROM テーブル名" ); # SQL文の実行 $sth->execute; # データの取得と出力 while(@row = $sth->fetchrow_array) { print "@row\n"; for($i=0;$i<@row;$i++){ print "$i $row[$i]\n"; } }