给定以下代码,我试图弄清楚如何遍历哈希引用数组(或者至少我认为它是哈希引用数组)。也就是说,$Policy->rules()
?
也许有更好的方法来创建结构数组,我愿意接受建议。
use Class::Struct;
use Data::Dumper;
struct Policy => {
listings => '@', # Will treat like rules eventually.
rules => '@', # an array of rules
};
struct Rule => {
direction => '$',
id => '$',
};
$policy = Policy->new();
$rule1 = Rule->new();
$rule1->direction('Any');
$rule1->id(1);
$rule2 = Rule->new();
$rule2->direction('Inbound');
$rule2->id(2);
$rule3 = Rule->new();
$rule3->direction('Outbound');
$rule3->id(3);
push($policy->rules(),$rule1);
push($policy->rules(),$rule2);
push($policy->rules(),$rule3);
$Data::Dumper::Indent = $Data::Dumper::Terse = 1;
print Dumper \$policy;
输出:
\bless( {
'Policy::listings' => [],
'Policy::rules' => [
bless( {
'Rule::id' => 1,
'Rule::direction' => 'Any'
}, 'Rule' ),
bless( {
'Rule::id' => 2,
'Rule::direction' => 'Inbound'
}, 'Rule' ),
bless( {
'Rule::id' => 3,
'Rule::direction' => 'Outbound'
}, 'Rule' )
]
}, 'Policy' )