問題タブ [perl-data-structures]

私はPerlで小さな「DBQuery」関数を書きたいので、SQLステートメントを送信して返信するワンライナーと、ハッシュの配列、つまりレコードセットを作成できます。ただし、Perl 構文の問題 (およびおそらく奇妙なポインター/参照の問題) に遭遇しているため、データベースから取得しているハッシュから情報をパックすることができません。以下のサンプル コードは、この問題を示しています。

次の構文を使用して、配列内のハッシュからデータ "Jim" を取得できます。

「ジム」を返します

しかし、最初に配列内のハッシュ レコードを独自のハッシュ変数にコピーすると、不思議なことにそのハッシュ内のデータにアクセスできなくなります。

"" (空白) を返します

問題を示す完全なサンプル コードを次に示します。どんな助けでも大歓迎です：

最近まで、次のように、同じキーを使用して複数の値を異なるハッシュに格納していました。

そして、参照できますが$boss("Bob")、$status("Bob")各キーが持つことができるプロパティが多数あり、ハッシュの同期を維持することを心配する必要がある場合、これは扱いにくくなります。

複数の値をハッシュに格納するためのより良い方法はありますか? 値を次のように保存できます

その後、スプリットで文字列を分解しますが、もっとエレガントな方法があるはずです。

次のようなテキストファイルでテーブルを取得した場合

• AB1
• AC2
• AD 1
• ば 3
• CD2
• AE1
• ED2
• CB2
• . . .
• . . .
• . . .

そして、別のテキスト ファイルに別のシンボル リストを取得しました。このテーブルを次のような Perl データ構造に変換したいと考えています。

• _ADE。. .
• A 0 1 1 . . .
• D 1 0 2 . . .
• E 1 2 0 . . .
• . . . . . . .

しかし、選択した記号のみが必要です。たとえば、A、D、E は記号テキストで選択されていますが、B と C は選択されていません。

私は次のようなハッシュ構造を持っています：

ハッシュ構造を通るトラバーサルパスと、トラバーサルの最後の値を出力して、値順に並べる必要があります。たとえば、上記のハッシュ構造の場合、次のように出力する必要があります。

現在、これを解決するために、ネストされたforeachループを使用してハッシュ構造をトラバースし、トラバーサルパスに等しいキー（「KeyAKey3 Key10」など）と最後の値に等しい値を持つ要素を挿入してフラット化されたハッシュを作成していますトラバーサルパス（例：3）、次にフラット化されたハッシュを値でソートする別のforeachループを実行します。

これを行うためのより効率的な方法はありますか？

ちょっと、配列参照を保持しているハッシュをソートするクールな「ワンライナー」があるかどうか疑問に思っていました。したがって、ハッシュには次のような一連のキー/値があります。

array[0]ただし、ハッシュを要素でソートしたいと思います。次に、それらをループします。私はこれを始めに持っていました：

しかし、それは明らかに、ハッシュを配列のポインター値でソートするだけです。「1行」である必要はありませんが、ハッシュの再構築を伴わない解決策を望んでいました.

次のように、Excelデータをハッシュの配列に抽出する関数があります。

ハッシュの配列を設定することは問題ありません。ただし、難しいのは、配列内の特定の項目 (ハッシュ) を検索することです。ID または 21、batchid が 15、またはコストが $20 を超えるアイテムが見つからないようです。

このような検索機能を実装するにはどうすればよいでしょうか?

ありがとうございます、

データをよりアクセスしやすくするために、表形式のデータを複雑なハッシュに格納したいと考えています。スクリプトがデータをループするので、「HoHoHoA」を成長させようとしています。「perldsc」のガイドラインに従って:

スクリプトは問題なくコンパイルおよび実行されますが、ハッシュにデータは追加されません。

キーが存在する必要がありますが、何も返しません。ハッシュに対して「exists」を実行すると、ハッシュが存在しないことが示されます。

私が読んでいるデータファイルは次のようになります。

特定の日付と時間の配列内の各列の値をグループ化したいので、{COLUMN}、{DATE}、および {HOUR} の 3 つのハッシュを作成します。

結果の構造は次のようになります。

私のコードを見てください：

私の必要性が十分に明確であることを願っています。これらのサブハッシュ内の配列に値を追加するにはどうすればよいですか?

Perl で、次の Ruby コードに相当するものを実行したいと考えています。

つまり、クラスと外部の両方で使用するために、定数のネストされたハッシュ構造を宣言したいだけです。方法？

ハッシュの配列を作成しようとしていますが、配列のループ処理に問題があります。このコードを試しましたが、うまくいきません:

次のプログラムでハッシュを使用して出現をカウントした後、実際のリストの順序を維持するにはどうすればよいですか? たとえば<DATA>、

ハッシュを使用して、各要素の出現をカウントしました。

そして私が欲しいのは：

しかし、次のプログラムはそうではないことを示しています。