0

私の XML パーサーは次のようになります。

$VAR1 = {
    'Symmetrix' => {
        'Masking_View' => {
            'View_Info' => {
                'Initiators' => {
                    'user_node_name' => [
                        '5001438001725614',
                        '5001438001725714'
                    ],
                    'user_port_name' => [
                        '5001438001725614',
                        '5001438001725714'
                    ],
                    'wwn' => [
                        '5001438001725614',
                        '5001438001725714'
                    ]
                },
                'port_grpname' => 'PG_1E0_2E0'
            }
        },
        'Symm_Info' => {
            'symid' => '000295900074'
        }
    }
};

の要素を取得しようとしていますwwn。しかし、私は通り抜けることができません。

#!C:\Perl\bin

use strict;
use XML::Simple;
use Data::Dumper;

my $input_file = $ARGV[0];
my $detail_info = XMLin("$input_file");

# Loop through each view_info
$detail_info->{Symmetrix}{Masking_View}{View_Info} = [ $detail_info->{Symmetrix}       {Masking_View}{View_Info} ] if ref ($detail_info->{Symmetrix}{Masking_View}{View_Info})   ne 'ARRAY';
foreach my $view_info  (@{$detail_info-> {Symmetrix}{Masking_View}{View_Info}})
{
      $view_info->{Initiators} = [$view_info->{Initiators}] if ref ($view_info->    {Initiators}) ne 'ARRAY';
foreach my $wwn (keys %{$view_info->{Initiators}})
    {
     my @flags = ();
     push (@flags,"$wwn:$view_info->{Initiators}{$wwn}";
     print @flags;
     #"{$wwn->{wwn}}";
    }
}

以下のような出力が得られます。

{ARRAY(0x20c8904)}

wwn別の行の単一行の要素を探しています。

4

1 に答える 1

1

arrayref 値と非参照値を区別するには、あまりにも多くのコードを生成しています。Strict モードでは、オプションを設定する必要がForceArrayあるため、要素が 1 つしかない場合でも、すべての値が arrayref であることを確認できます。

use strictures;
use XML::Simple qw(:strict);
my $detail_info = XMLin($ARGV[0], ForceArray => 1, KeyAttr => []);
# $detail_info is {
#     Symmetrix => [
#         {
#             name      => 'Masking_View',
#             View_Info => [
#                 {
#                     Initiators => [
#                         {
#                             user_node_name => [5001438001725614, 5001438001725714],
#                             user_port_name => [5001438001725614, 5001438001725714],
#                             wwn            => [5001438001725614, 5001438001725714]
#                         }
#                     ],
#                     port_grpname => 'PG_1E0_2E0'
#                 }
#             ]
#         },
#         {
#             name  => 'Symm_Info',
#             symid => '000295900074'
#         }
#     ]
# }
my @flags;
for my $view_info (@{ $detail_info->{Symmetrix}[0]{View_Info} }) {
    for my $initiator (@{ $view_info->{Initiators} }) {
        push @flags, $initiator->{wwn};
    }
}
# @flags is (
#     [
#         5001438001725614,
#         5001438001725714
#     ]
# )
于 2012-06-20T11:47:48.893 に答える