2

$jobこのデータを持つHASH 参照があります。

{
    "opstat"  : "ok",
    "response": {
                "group_id":23015,
                "order_id":"139370",
                "job_count":"10",
                "credits_used":"100.45",
                "currency":"USD"
                }
}

「response」キーのハッシュ値を出力したい。私はこれをやってみましたが、うまくいきませんでした

print %{$job->{'response'}}

編集

書式設定は必要ありません。「response」キーの値の各要素にアクセスする方法を知りたいです。

4

4 に答える 4

3
「response」キーの値の各要素にアクセスする方法を知りたいです。

定義上、何らかのループが必要です。を使用することもできますが、foreach ループが一般的ですmap。

for my $key (keys %{$job->{response}}) {
   my  $val = $job->{response}{$key};
   print("$key: $val\n");  # Or whatever
}

また

my $response = $job->{response};
for my $key (keys %$response) {
   my  $val = $response->{$key};
   print("$key: $val\n");  # Or whatever
}
于 2012-05-25T18:05:19.167 に答える
2

次のコードを試してください。これは実際の完全なスクリプトです。

#!/usr/bin/env perl

use strict;
use warnings;

my $job = {
    'opstat' => 'ok',
    'response' => {
        'currency' => 'USD',
        'group_id' => ':23015',
        'job_count' => '10',
        'order_id' => '139370',
        'credits_used' => '100.45'
    }
};

foreach my $key (keys %{$job}) {
    print "key=$key|value=$job->{$key}\n";

    # Testing if "$job->{$key}" is a HASH ref
    # ...if yes, we iterate inside the HASH
    #  through the next level.
    if (ref($job->{$key}) eq "HASH") {
        foreach my $key2 (keys %{$job->{$key}}) {
            print "\tkey=$key2|value=$job->{$key}->{$key2}\n"; 
        }
    }
}

これは出力です：

key=opstat|value=ok
key=response|value=HASH(0x1638998)
        key=currency|value=USD
        key=group_id|value=:23015
        key=order_id|value=139370
        key=job_count|value=10
        key=credits_used|value=100.45

「group_id」キーにアクセスする場合:

print $job->{response}->{group_id};

何もテストせずに「応答」ハッシュのみにアクセスする場合:

foreach my $key (keys %{$job->{response}}) {
    print "key=$key|value=$job->{response}->{$key}\n";
}

またはこのwhileループとeach:

while (my ($key,$value) = each %{$job->{response}}){
    print "key=$key|value=$value\n";
}
于 2012-05-25T18:14:55.700 に答える
1 
use Data::Dumper;

print Dumper( $job->{response} );

または個別に...

print $job->{response}{group_id};
于 2012-05-25T17:32:51.837 に答える
0

何を達成しようとしているのかよくわかりません。コードは、フォーマットなしで内部ハッシュの内容を出力します。フォーマットされた出力が必要な場合は、Data::Dumperモジュールを使用する必要があります。

use Data::Dumper;
my $job = {
  "opstat" => "ok",
  "response" => {
    "group_id":23015,
    "order_id":"139370",
    "job_count":"10",
    "credits_used":"100.45",
    "currency":"USD"
  }
};
print Dumper($job->{'response'});
于 2012-05-25T17:42:43.563 に答える