language: Perl (perl 5.16.2)
date: 230 days 22 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

$xx                      = "xx"; 
$yy                      = "yy"; 
@zone_Nw_Ip_Val          = ($xx,$yy); 
%zone_Nw_Ip; 
$zone_Nw_Ip{"eq"}        = [@zone_Nw_Ip_Val]; 
$zone_Nw_Ip{"neq"}       = [@zone_Nw_Ip_Val]; 
$zone_Nw_Ip{"member-of"} = [@zone_Nw_Ip_Val]; 
%zone_Nw; 
$zone_Nw{"zone_Nw_Ip"}   = {%zone_Nw_Ip};  
%zone_hash; 
$zone_hash{"Nw"}         = {%zone_Nw};
 
foreach  $attribute_type (sort keys %zone_hash) { 
  foreach  $attribute (sort keys %{$zone_hash{$attribute_type}}) { 
    foreach $operator_type ( sort keys %{$zone_hash{$attribute_type}{$attribute}}) { 
      foreach  $value ( @{$zone_hash{$attribute_type}{$attribute}{$operator_type}}) { 
        print "\n attribute_type --> $attribute_type  attribute--> $attribute operator_type --> $operator_type   "; 
      } 
    } 
  }    
}