2013-09-08T07:51:32 bianca

2013-09-08T07:47:40 frankes

sorry, brauche ein wenig um zu verstehen, was das Ziel.

Das Ziel ist eine Variablendefinition am Anfang meines Scripts wo jeder Wert auf jeden Fall nur 1 x vorkommt, damit es einfach zu pflegen ist.

2013-09-08T07:47:40 frankes

Aber vielleicht ist ein hashref eine gangbare Lösung.

Ich finde in diesem Beispiel meine Array Definition nicht wieder. Wo ist die geblieben?
In meinem Beispiel war es nur ein Eintrag im Array, im Script sind es natürlich zig Einträge.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl
use strict;
use warnings;

my %test;
%test = (
  array => {
    foo => {
            foo     => 'bar',
            code    => sub {
                my ($ref) = @_;
                'ja' if $ref eq $test{foo}{foo};
            }
    }
  }
);
print &{$test{array}{foo}{code}}('bar'),"\n";