怎么把上面数组的value及name值循环放到下面数组的value及name值

hejianbu437

$VAR1 = [
          bless( {
                   'value' => 'B7BE19DE3CE73329C64DF9E652A919CBE8D4CFB0',                   'name' => 'BIGIPAuthCookie'                 }, 'Mojo::Cookie::Request' ),
          bless( {
                   'value' => 'admin',
                   'name' => 'BIGIPAuthUsernameCookie'
                 }, 'Mojo::Cookie::Request' ),
          bless( {
                   'value' => '10.33.120.1',
                   'name' => 'BACK_END_HOST'
                 }, 'Mojo::Cookie::Request' ),
          bless( {
                   'value' => 'f5',
                   'name' => 'type'
                 }, 'Mojo::Cookie::Request' )
        ];
$VAR1 = bless( {
                 'jar' => {
                            '10.33.120.1' => [
                                               bless( {
                                                        'domain' => '10.33.120.1',
                                                        'value' => 'bbbbb',                                                        'secure' => '1',
                                                       'name' => 'aaaaa',                                                        'path' => '/'
                                                      }, 'Mojo::Cookie::Response' ),
                                               bless( {
                                                        'domain' => '10.33.120.1',
                                                        'value' => 'ddddd',
                                                        'secure' => '1',
                                                        'name' => 'ccccc',
                                                        'path' => '/'
                                                      }, 'Mojo::Cookie::Response' )
                                             ]
                          },
                 'max_cookie_size' => 4096
               }, 'Mojo::UserAgent::CookieJar' );

rubyish

是 ?

1. say "BEFORE:";
   
2. say $VARb->{jar}{'10.33.120.1'}[0]{name};
   
3. say $VARb->{jar}{'10.33.120.1'}[0]{value};
   
4. say $VARb->{jar}{'10.33.120.1'}[1]{name};
   
5. say $VARb->{jar}{'10.33.120.1'}[1]{value};
   
6. newv $VARb, $VARa;
   
7. say "AFTER:";
   
8. say $VARb->{jar}{'10.33.120.1'}[0]{name};
   
9. say $VARb->{jar}{'10.33.120.1'}[0]{value};
   
10. say $VARb->{jar}{'10.33.120.1'}[1]{name};
    
11. say $VARb->{jar}{'10.33.120.1'}[1]{value};

复制代码

1. BEFORE:
   
2. aaaaa
   
3. bbbbb
   
4. ccccc
   
5. ddddd
   
6. AFTER:
   
7. BIGIPAuthCookie
   
8. B7BE19DE3CE73329C64DF9E652A919CBE8D4CFB0
   
9. BIGIPAuthUsernameCookie
   
10. admin
    

复制代码