#!/usr/bin/perl
#-#############################################
# catalog.pl
# Version: 1.03 
# Date: 08/09/2002
#-#############################################
    print "Content-type: text/html\n\n";
    $|++;
    use strict;
    use warnings;
    our %category;    
#-#############################################

my $categories = [ 
    ['Telekommunikation',
	['Festnetz',
	    ['Telefon',
		['Foo', 'Bar']
	    ],
	    ['Telefax',
		['Foo', 'Bar']
	    ],
	],
	['Mobilnetz',
	    ['Handy used',
		['Siemens',
		    ['C25', 'C35', 'Other']
		],
		['Nokia',
		    ['5130', '7710', '8810', 'Other']
		],
		['Panasonic',
		    ['GD90', 'GD91', 'GD92']
		]		
	    ],
	    ['Handy unused',
		['Panasonic',
		    ['GD90', 'GD91', 'GD92']
		],
		['Siemens',
		    ['C25', 'C35', 'Other']
		],
		['Nokia',
		    ['5130', '7710', '8810', 'Other']
		]	
	    ]
	]
    ],
    
    ['Computer',
	['Hardware',
	    ['Monitor',
		['Eizo', 
		    ['15 Zoll', '17 Zoll', '19 Zoll', '20 Zoll']
		],
		['Other', 
		    ['15 Zoll', '17 Zoll', '19 Zoll', '20 Zoll']
		]
	    ],
	    ['CPU',
		['Intel',
		    ['up to 300 MHz', 'up to 600 MHz', 'up to 900 MHz']
		],
		['AMD',
		    ['up to 300 MHz', 'up to 600 MHz', 'up to 900 MHz']
		],
		['Other',
		    ['up to 300 MHz', 'up to 600 MHz', 'up to 900 MHz']
		],
	    ]
	],
	['Software',
	    ['Operating Systems',
		['Windows', 'Linux']
	    ],
	    ['Applications',
		['Office-Software', 'Internet-Software', 'Games']
	    ]
	]
    ]
];

#-#############################################
# Convert array to hash
# and print a list of categories ...
#-#############################################
    print "<hr>This is reading from array and printing from hash<hr>";
    
    dump_hash_categories($categories);
    
    foreach (sort keys %category) {
	print "$category{$_}<br>";
    }
    
#-#############################################
# Alternative:
# Read from array
# and print a list of all categories ... 
#-#############################################
    print "<hr>This is reading and printing from Array<hr>";

    my @category = dump_categories($categories);
    print "$_ <br>" for @category;
  
#-#############################################
# Dump Main-Categories
#-#############################################
sub dump_categories {
    my $catalog = shift;
    my ($category, $main_cat, $show_cat);
        
	while ($#$catalog >= 0) {
	    $category = shift @$catalog;
	       while ($#$category >= 0) {
		    $main_cat = shift @$category;		      
			if (ref $main_cat) {
			    dump_subcat($main_cat, $show_cat, \@category);
			}
			else {
			    $show_cat = $main_cat;
			    push @category, $show_cat;
			}
	       }
	}	
    
    sort @category;
}

#-#############################################
# Dump Sub-Categories
#-#############################################
sub dump_subcat {
    my ($sub_main, $show_cat, $catalog) = @_;
    my $sub_cat;
        
	while ($#$sub_main >= 0) {
	    $sub_cat = shift @$sub_main;
		if (ref $sub_cat) {
		    dump_subcat($sub_cat, $show_cat, $catalog);
		}
		else {
		    $show_cat .= " >> $sub_cat";
		    push @$catalog, $show_cat;
		    $show_cat =~ s/(\>\>\s$sub_cat)$// unless ref $sub_main->[0];
		}
	}
}
   
#-#############################################
# Dump Categories as a hash
#-#############################################
sub dump_hash_categories {
    my ($cat, @sub_cat) = @_;
    
    push @sub_cat, $cat->[0] if $cat->[0] and !ref $cat->[0];
    
	foreach my $sub_cat (@$cat) {
	    if (ref $sub_cat) { 
		dump_hash_categories($sub_cat, @sub_cat);
	    }
	    else {
		$category{join("_", @sub_cat[0..($#sub_cat - 1)], $sub_cat)}
		= join(" >> ", @sub_cat[0..($#sub_cat - 1)], $sub_cat);
	    }
	}
}

#-#############################################
exit;

#! /usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $categories = [
   ['Telekommunikation',
['Festnetz',
   ['Telefon',
['Foo', 'Bar']
   ],
   ['Telefax',
['Foo', 'Bar']
   ],
],
['Mobilnetz',
   ['Handy used',
['Siemens',
   ['C25', 'C35', 'Other']
],
['Nokia',
   ['5130', '7710', '8810', 'Other']
],
['Panasonic',
   ['GD90', 'GD91', 'GD92']
]
   ],
   ['Handy unused',
['Panasonic',
   ['GD90', 'GD91', 'GD92']
],
['Siemens',
   ['C25', 'C35', 'Other']
],
['Nokia',
   ['5130', '7710', '8810', 'Other']
]
   ]
]
   ],
];

my $hashref = getPosition($categories,"","");

print Dumper($hashref);

sub getPosition{
  my ($arrayref,$title,$position) = @_;
  my @array = @{$arrayref};
  my %hash = ();
  my $ref2hash = ();
  foreach my $index(0..(scalar(@array) - 1)){
    my $type = ref($array[$index]);
    if($type eq 'ARRAY'){
      $position .= '_'.$index;
      $ref2hash = getPosition($array[$index],$title,$position);
      %hash = (%hash,%{$ref2hash});
    }# elsif
    unless($type){
      $title = $title.'_'.$array[$index];
      my $pos = $position.'_'.$index;
      $title =~ s/^_//;
      $pos =~ s/^_//;
      $hash{$title} = $pos;
    }# if
  }# foreach
  return \%hash;
}# end getPosition

sub getPosition{
  my ($arrayref,$title,$position) = @_;
  my @array = @{$arrayref};
  my %hash = ();
  my $ref2hash = ();
  foreach my $index(0..(scalar(@array) - 1)){
    my $type = ref($array[$index]);
    if($type eq 'ARRAY'){
      $position .= '_'.$index;
      $ref2hash = getPosition($array[$index],$title,$position);
      %hash = (%hash,%{$ref2hash});
    }# elsif
    unless($type){
      my $s = $array[$index];
      my $key = $title;
      $key = $key.'_'.$s;
      $key =~ s/\_[^\_]+$/\_$s/ if($index != 0);
      $title = $title.'_'.$s if((ref($array[$index + 1]) eq 'ARRAY') && $index == 0);
      $title =~ s/\_[^\_]+$/\_$s/ if((ref($array[$index + 1]) eq 'ARRAY') && $index != 0);
      my $pos = $position.'_'.$index;
      $title =~ s/^_//;
      $key =~ s/^_//;
      $pos =~ s/^_//;
      $hash{$key} = $pos;
    }# if
  }# foreach
  return \%hash;
}# end getPosition

#!/usr/bin/perl
#-#############################################
# catalog.pl
# Version: 1.04 
# Date: 04/25/2004
# Written by Dieter Werner
#-#############################################
    print "Content-type: text/html\n\n";
    use strict;
    use warnings;
#-#############################################

my $categories = [ 
    ['Telekommunikation',
		['Festnetz',
			['Telefon',
				['Foo', 'Bar'],
			],
			['Telefax',
				['Foo', 'Bar'],
			],
		],
		['Mobilnetz',
			['Handy used',
				['Siemens',
					['C25', 'C35', 'Other'],
				],
				['Nokia',
					['5130', '7710', '8810', 'Other'],
				],
				['Panasonic',
					['GD90', 'GD91', 'GD92'],
				],		
			],
			['Handy unused',
				['Siemens',
					['C25', 'C35', 'Other'],
				],
				['Nokia',
					['5130', '7710', '8810', 'Other'],
				],
				['Panasonic',
					['GD90', 'GD91', 'GD92'],
				],	
			],
		],
    ],
    
    ['Computer',
		['Hardware',
			['Monitor',
				['Eizo', 
					['15 Zoll', '17 Zoll', '19 Zoll', '20 Zoll'],
				],
				['Other', 
		    		['15 Zoll', '17 Zoll', '19 Zoll', '20 Zoll'],
				],
			],
			['CPU',
				['Intel',
		    		['up to 300 MHz', 'up to 600 MHz', 'up to 900 MHz'],
				],
				['AMD',
		    		['up to 300 MHz', 'up to 600 MHz', 'up to 900 MHz'],
				],
				['Other',
		    		['up to 300 MHz', 'up to 600 MHz', 'up to 900 MHz'],
				],
			],
		],
		['Software',
	    	['Operating Systems',
				['Windows', 'Linux'],
	    	],
			['Applications',
				['Office-Software', 'Internet-Software', 'Games'],
	    	],
		],
    ],
];
    
#-#############################################
# Read from array
# and print a list of all categories => Indices
#-#############################################
	my $catalog = {};
	
    dump_cat_1($_, $categories->[$_], $catalog) for 0 .. 1;
    print "$_ => $catalog->{$_}<br>" foreach sort keys %$catalog;
  
#-#############################################
# Dump Level 1
#-#############################################
sub dump_cat_1 {
    my ($cnt, $cat, $catalog) = @_;
	my @index;
	local $_;
        
		for (0 .. $#$cat) {
			ref $cat->[$_]
				?	dump_cat_2($cat->[$_], $catalog, \@index)
				:	do {
						@index = ($cnt, $_);
						$catalog->{join('_', @index)} = $cat->[$_];
					}
		}
}

#-#############################################
# Dump Level 2
#-#############################################
sub dump_cat_2 {
    my ($cat, $catalog, $index) = @_;
	local $_;
	
		for (0 .. $#$cat) {
			ref $cat->[$_]
				?	dump_cat_3($cat->[$_], $catalog, $index)
				:	do {
						$_ == 0
							?	(@$index = ($index->[0], ++$index->[1], $_))
							:	(@$index = (@$index[0 .. 1], $_));
						
						$catalog->{join('_', @$index)} = $cat->[$_];
					}
		}	
}
 
#-#############################################
# Dump Level 3
#-#############################################
sub dump_cat_3 {
    my ($cat, $catalog, $index) = @_;
	local $_;
	
		for (0 .. $#$cat) {
			ref $cat->[$_]
				?	dump_cat_4($cat->[$_], $catalog, $index)
				:	do {
						$_ == 0
							?	(@$index = (@$index[0 .. 1], ++$index->[2], $_))
							:	(@$index = (@$index[0 .. 2], $_));
						
						$catalog->{join('_', @$index)} = $cat->[$_];
					}
		}	
}
   
#-#############################################
# Dump Level 4
#-#############################################
sub dump_cat_4 {
    my ($cat, $catalog, $index) = @_;
	local $_;
	
		for (0 .. $#$cat) {
			ref $cat->[$_]
				?	dump_cat_5($cat->[$_], $catalog, $index)
				:	do {
						$_ == 0
							?	(@$index = (@$index[0 .. 2], ++$index->[3], $_))
							:	(@$index = (@$index[0 .. 3], $_));
						
						$catalog->{join('_', @$index)} = $cat->[$_];
					}
		}	
}
  
#-#############################################
# Dump Level 5
#-#############################################
sub dump_cat_5 {
    my ($cat, $catalog, $index) = @_;
	local $_;
	
		for (0 .. $#$cat) {
			ref $cat->[$_]
				?	dump_cat_6($cat->[$_], $catalog, $index)
				:	do {
						$_ == 0
							?	(@$index = (@$index[0 .. 3], ++$index->[4], $_))
							:	(@$index = (@$index[0 .. 4], $_));
						
						$catalog->{join('_', @$index)} = $cat->[$_];
					}
		}	
}

#-#############################################
# Dump Level 6
#-#############################################
sub dump_cat_6 {
    my ($cat, $catalog, $index) = @_;
	local $_;
	
		for (0 .. $#$cat) {
			ref $cat->[$_]
				?	dump_cat_7($cat->[$_], $catalog, $index)
				:	do {
						$_ == 0
							?	(@$index = (@$index[0 .. 4], ++$index->[5], $_))
							:	(@$index = (@$index[0 .. 5], $_));
						
						$catalog->{join('_', @$index)} = $cat->[$_];
					}
		}	
}

#-#############################################
exit;