#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my %test;
%test = (
	variablen => [
		{
			name	=> 'Var1',
			gueltig	=> 'pa',	# Gueltigkeit dieser Formularvariable
			code	=> sub {
				'foo1';	# natürlich wird hier viel viel mehr gemacht
			},
		},
		{
			name	=> 'Var2',
			gueltig	=> 'pu',
			code	=> sub {
				'foo2';
			},
		},
		{
			name	=> 'Var3',
			gueltig	=> 'pa,pu',
			code	=> sub {
				'foo3';
			},
		},
	],
	formate => [
		{
			name	=> 'plain ANSI',
			ident	=> 'pa',	# konstantes Kürzel zur Identifizierung in der DB
			code	=> sub {
				my ($ident) = @_;
				foreach my $ref (grep {grep {$_ eq $ident} split /\,/,$_->{gueltig}} @{$test{variablen}}) {
					print "$ident fuert $ref->{name} aus: ".$ref->{code}()."\n";
				}
			},
		},
		{
			name	=> 'plain UTF',
			ident	=> 'pu',
			code	=> sub {
				my ($ident) = @_;
				foreach my $ref (grep {grep {$_ eq $ident} split /\,/,$_->{gueltig}} @{$test{variablen}}) {
					print "$ident fuert $ref->{name} aus: ".$ref->{code}()."\n";
				}
			},
		},
	],
);
foreach my $ref (@{$test{formate}}) {
	print $ref->{code}($ref->{ident})."\n";
}