別のキーをperlのハッシュリファレンスに追加することができません

Question

ありがとうございました。あなたの答えが最も役立ちます。

私は「heloo」は、それが正常に動作しているが、どのように私はハッシュリファレンスのこの配列を渡すことができるよう$ Bを渡すと、私は

a= [ 
      { 
      'name' => 'test', 
      'id' => '10',`enter code here` 
      }, 
      { 
      'name' => 'foo', 
      'id' => '22', 
      } 
    ]; 

b= [ 
     { 
      'dept' => 'IT', 
      'mob' => '880978' 
      }, 
      { 
      'dept' => 'CSE', 
      'mob' => '877687' 
      }, 
     ]; 

The o/p should be : 


a= [ 
      { 
      'name' => 'test', 
      'id' => '10', 
      b= [ 
        { 
        'dept' => 'IT', 
        'mob' => '880978' 
        }, 
        { 
        'dept' => 'CSE', 
        'mob' => '877687' 
       }, 
       ]; 
      }, 
      { 
      'name' => 'foo', 
      'id' => '22', 
      b= [ 
        { 
        'dept' => 'IT', 
        'mob' => '880978' 
       }, 
       { 
        'dept' => 'CSE', 
        'mob' => '877687' 
       }, 
       ]; 

      } 
    ]; 

I did like : 
my $count = 0; 
foreach my $row (@$a){ 
    $a->[$count]{b} = $b; 
    $count++; 
} 

データベースLETのAとBとから$sth->fetchall_arrayref({})を使用して2つのarrayofhashrefをフェッチするのですか？

Answer 1

あなたの質問に納得がいくかどうかはわかりませんが、あなたのコードは動作しているようです。

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Test::More tests => 1; 

my $a = [ 
    { 
     'name' => 'test', 
     'id' => '10', 
    }, 
    { 
     'name' => 'foo', 
     'id' => '22', 
    } 
]; 

my $b = [ 
    { 
     'dept' => 'IT', 
     'mob' => '880978' 
    }, 
    { 
     'dept' => 'CSE', 
     'mob' => '877687' 
    }, 
]; 

#The o/p should be : 

my $wanted = [ 
    { 
     'name' => 'test', 
     'id' => '10', 
     b  => [ 
      { 
       'dept' => 'IT', 
       'mob' => '880978' 
      }, 
      { 
       'dept' => 'CSE', 
       'mob' => '877687' 
      }, 
     ], 
    }, 
    { 
     'name' => 'foo', 
     'id' => '22', 
     b  => [ 
      { 
       'dept' => 'IT', 
       'mob' => '880978' 
      }, 
      { 
       'dept' => 'CSE', 
       'mob' => '877687' 
      }, 
     ], 
    } 
]; 

#I did like : 

my $count = 0; 
for my $row (@$a){ 
    $a->[$count]{'b'} = $b; 
    $count++; 
} 

is_deeply($a, $wanted, 'data structures equal'); 

ができます：

1..1 
ok 1 - data structures equal