- 追加された行はこの色です。
- 削除された行はこの色です。
[[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";
}
}