質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.51%

  • MySQL

    5858questions

    MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

  • Perl

    457questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • ハッシュ

    37questions

    ハッシュは、高速にデータ検索を行うアルゴリズムのことです。

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

解決済

回答 3

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 527

mitsu326

score 15

現在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;

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

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 3

checkベストアンサー

+1

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

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/10/13 11:49

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

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

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

    キャンセル

+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に設定し二次元配列が作成できました。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/10/13 11:51

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

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

    キャンセル

  • 2017/10/13 12:26

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

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.51%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • MySQL

    5858questions

    MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

  • Perl

    457questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • ハッシュ

    37questions

    ハッシュは、高速にデータ検索を行うアルゴリズムのことです。