Thread %{$eingabe} zur Laufzeit erzeugen: Hash mit benutzerdefiniertem Bezeichner (16 answers)
Opened by pearl-man at 2006-02-21 12:21

renee
 2006-02-21 12:55
#63109 #63109
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Existiert der andere Hash schon??

Folgende Loesungsansaetze waeren also denkbar:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my (%base,%hash);

#Beispiel
$hash{Beispiel} = {lerche => 'grosser Baum'};
$hash{Hallo} = {Eibe => 'giftiger Baum'};

# Dummy
my $line = 'Test;;Beispiel';
my @info = split(/;;/,$line);

if(defined $info[1]){
   $base{'WasAuchImmerIn$hashStehenMagEsIstKeinGuterBezeichnerFuerEinSkalar'} = {$info[0] => $info[1]};
}
else{
  $base{'WasAuchImmerIn$hashStehenMagEsIstKeinGuterBezeichnerFuerEinSkalar'} = {$info[0] => 0};
}

#Zugriff spaeter
print Dumper($hash{$base{'WasAuchImmerIn$hashStehenMagEsIstKeinGuterBezeichnerFuerEinSkalar'}->{$info[0]}});


oder

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my (%base,%hash);

#Beispiel
$hash{Beispiel} = {lerche => 'grosser Baum'};
$hash{Hallo} = {Eibe => 'giftiger Baum'};

# Dummy
my $line = 'Test;;Beispiel';
my @info = split(/;;/,$line);

if(defined $info[1]){
   $base{key} = {$info[0] => $hash{$info[1]}};
}
else{
  $base{key} = {$info[0] => 0};
}

#Zugriff spaeter
print Dumper($base{key}->{$info[0]});
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread %{$eingabe} zur Laufzeit erzeugen: Hash mit benutzerdefiniertem Bezeichner