2

次のコードを前提として、ハッシュ参照の配列を反復処理する方法を理解しようとしています（または、少なくともハッシュ参照の配列だと思います）。つまり、$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' )
4

2 に答える 2

1 
visit_policy($policy);

sub visit_policy {
   my ($policy) = @_;

   my $listings = $policy->listings;
   my $rules    = $policy->rules;

   for my $listing (@$listings) {
      visit_listing($listing);
   }

   for my $rule (@$rules) {
      visit_rule($rule);
   }
}

sub visit_listing {
   my ($listing) = @_;
   # ...
}

sub visit_rule {
   my ($rule) = @_;

   my $direction = $rule->direction;
   my $id        = $rule->id;

   # ...
}
于 2012-08-30T22:08:44.543 に答える
0

ご協力いただきありがとうございます。近いように見えますが、まだ数週間必要です。下記参照。これを実行してルールを印刷しようとすると、次のようになります。

D:/SLC/Aiken/Policy/POC/OLAP/test.pl 行 66 の unblessed 参照でメソッド「direction」を呼び出せません。

visit_policy($policy);

sub visit_policy {
   my ($policy) = @_;

   my $listings = $policy->listings;
   my $rules    = $policy->rules;

   for my $listing (@$listings) {
      visit_listing($listing);
   }

   for my $rule (@$rules) {
      visit_rule($rules);
   }
}

sub visit_listing {
   my ($listing) = @_;
   # ...
}

sub visit_rule {
   my ($rule) = @_;

   my $direction = $rule->direction;  #<-- Line 66 
   my $id        = $rule->id;

    print $id . "\n";

   # ...
}
于 2012-08-31T14:02:33.300 に答える