Mysqlより複数のレコードデータを二次元配列でまとめて取得する方法

Question

現在Perlを使用してプログラムを作成しております。

今回、Mysqlより複数のレコードの値を取得して、後ほど取得したデータを使いたいので二次元ハッシュへ
キーと値をセットしたいと考えております。
ハッシュとして取得したあと、どのように二次元ハッシュへセットしたら良いのかわかりませんので、
何か良い方法がありましたら教えてください。

今の私では、ループさせて変換する方法しか浮かばず・・・

my $dsn = "DBI:mysql:$dbname:$dbhost:$dbport";
my $dsh = DBI -> connect ( $dsn, $dbuser, $dbpass, { RaiseError => 0 , mysql_enable_utf8 => 1 ,} );

my $sth = $dsh->prepare("SELECT * FROM `tbl_name`");
   $sth->execute;

my %NiHash;
my $i=1;
while (my $hash_ref = $sth->fetchrow_hashref) {
  my %row = %$hash_ref;

	while (my ($key, $value) = each(%row)) {
	  $NiHash{$i}->{$key} = $value;
  }
  $i++;
}
$dsh->disconnect;

実際は、取得件数は制限をかけます。

また、他にやり方がある時は良い方法を教えてください。
よろしくお願いします。

Answer 1

my $dsn = "DBI:mysql:$dbname:$dbhost:$dbport";
my $dsh = DBI -> connect ( $dsn, $dbuser, $dbpass, { RaiseError => 0 , mysql_enable_utf8 => 1 ,} );

my $sth = $dsh->prepare("SELECT * FROM `tbl_name`");
   $sth->execute;
	my $NiHash_ref = $dsh->selectall_hashref("SELECT * FROM `tbl_name` WHERE `code` = 100001",'code_name');

$dsh->disconnect;


# 二次元ハッシュの取り出し ****************
my %NiHash = %$NiHash_ref;

# 2次元ハッシュの中身を出力
foreach my $list (sort { $NiHash{$a} cmp $NiHash{$b} }  keys %NiHash ){
	print "<hr>CodeName:$list<br>\n";
	foreach(sort keys %{ $NiHash{$list} } ){
		print "$_  = $NiHash{$list}->{$_}<br>\n";
	}
}

説明)
selectall_hashref を使い、code_nameと言うカラム名の値を最初のKeyに設定し二次元配列が作成できました。

Answer 2

記述の簡略化のために、fetchall_hashrefが利用できるのではないかと思います。

http://perldoc.jp/docs/modules/DBI-1.612/DBI.pod#fetchall_hashref

実装は確認していませんが、やっていることは質問者さんのコードと同じような対応だとは思います。

また、ご質問に記載の例示コードだけの問題とは思いますが、記載されたSQL文字列は閉じられていないようです。
そのため以降の記述が全て赤く表示されています。

Comments

[mitsu326]

ご回答頂きましてありがとう御座います。
SQL文も閉じて修正いたしました。

selectall_hashref　を使い希望のことが無事できました。

本当にありがとう御座いました。

Answer 3

削除：はずしていたので。

Comments

[mitsu326]

ご回答頂きましてありがとう御座います。

今後とも何かありましたら宜しくお願いします。

[Orlofsky]

削除依頼は拒否されました。お力になれずすみません。
>【teratail】 回答の削除リクエストが却下されました