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

Question

CPANモジュール XML::SimpleのXMLoutを利用してハッシュをXMLに変換したいと思っております。
下記ハッシュのデータをXMLoutの引数として利用可能なリファレンス値にする方法をご存知の方
ご教授いただけますと助かります。

ハッシュ
%hash ( "key1" => "data1"
"key2" => "data2"
);

↓ 変換

XMLoutで利用可能なリファレンス値
$hashRef { "key1" => ['data1']
"key2" => ['data2']
}

Answer 1

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

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

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>