fork download
copy 
  1. $xx                      = "xx"; 
  2. $yy                      = "yy"; 
  3. @zone_Nw_Ip_Val          = ($xx,$yy); 
  4. %zone_Nw_Ip; 
  5. $zone_Nw_Ip{"eq"}        = [@zone_Nw_Ip_Val]; 
  6. $zone_Nw_Ip{"neq"}       = [@zone_Nw_Ip_Val]; 
  7. $zone_Nw_Ip{"member-of"} = [@zone_Nw_Ip_Val]; 
  8. %zone_Nw; 
  9. $zone_Nw{"zone_Nw_Ip"}   = {%zone_Nw_Ip};  
  10. %zone_hash; 
  11. $zone_hash{"Nw"}         = {%zone_Nw};
  12.  
  13. foreach  $attribute_type (sort keys %zone_hash) { 
  14.   foreach  $attribute (sort keys %{$zone_hash{$attribute_type}}) { 
  15.     foreach $operator_type ( sort keys %{$zone_hash{$attribute_type}{$attribute}}) { 
  16.       foreach  $value ( @{$zone_hash{$attribute_type}{$attribute}{$operator_type}}) { 
  17.         print "\n attribute_type --> $attribute_type  attribute--> $attribute operator_type --> $operator_type   "; 
  18.       } 
  19.     } 
  20.   }    
  21. }
Success #stdin #stdout 0s 4552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 attribute_type --> Nw  attribute--> zone_Nw_Ip operator_type --> eq   
 attribute_type --> Nw  attribute--> zone_Nw_Ip operator_type --> eq   
 attribute_type --> Nw  attribute--> zone_Nw_Ip operator_type --> member-of   
 attribute_type --> Nw  attribute--> zone_Nw_Ip operator_type --> member-of   
 attribute_type --> Nw  attribute--> zone_Nw_Ip operator_type --> neq   
 attribute_type --> Nw  attribute--> zone_Nw_Ip operator_type --> neq
https://ideone.com/6iE5z
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!