Perl ハッシュリファレンスの作成

指定されたデータに変換する方法が見つからなかったので、作成してみました。
以下の条件であると仮定して作成しています。

• スカラーは配列化する
• 連想配列内の連想配列も対象とする
• 連想配列以外のリファレンスはそのままとする

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

# テストデータ
my $test_data = {
    test1 => undef,
    test2 => 'data2',
    test3 => 'data3',
    test4 => ['data4'],
    test5 => {
        test5_1 => 'data5_1',
        test5_2 => 'data5_2'
    },
    test6 => {
        test6_1 => ['data6_1'],
        test6_2 => ['data6_2']
    }
};
print Dumper( _create_xmlout_data($test_data) );
print XMLout( _create_xmlout_data($test_data) );

# 連想配列を展開して、XMLout用データを作成する
sub _create_xmlout_data {
    my ($data) = @_;
    my $res = $data;
    if ( defined($data) && ref($data) eq 'HASH' ) {

        # 連想配列のリファレンスの場合は
        # キーごとに調査を行う
        $res = {};
        foreach my $key ( keys( %{$data} ) ) {
            if ( ref( $data->{$key} ) ) {

                # リファレンスの場合は
                # 再帰でデータ作成を行う
                $res->{$key} = _create_xmlout_data( $data->{$key} );
            }
            else {

                # リファレンスで無い場合は
                # 配列化してデータを格納する
                $res->{$key} = [ $data->{$key} ];
            }
        }
    }
    return $res;
}

実行結果

$VAR1 = {
          'test5' => {
                       'test5_1' => [
                                      'data5_1'
                                    ],
                       'test5_2' => [
                                      'data5_2'
                                    ]
                     },
          'test1' => [
                       undef
                     ],
          'test4' => [
                       'data4'
                     ],
          'test3' => [
                       'data3'
                     ],
          'test6' => {
                       'test6_2' => [
                                      'data6_2'
                                    ],
                       'test6_1' => [
                                      'data6_1'
                                    ]
                     },
          'test2' => [
                       'data2'
                     ]
        };
<opt>
  <test1></test1>
  <test2>data2</test2>
  <test3>data3</test3>
  <test4>data4</test4>
  <test5>
    <test5_1>data5_1</test5_1>
    <test5_2>data5_2</test5_2>
  </test5>
  <test6>
    <test6_1>data6_1</test6_1>
    <test6_2>data6_2</test6_2>
  </test6>
</opt>