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";
	    }
	}
	$sth->finish;
	$dbh->disconnect;