Thread Wie eine Liste als Hash-Value? (6 answers)
Opened by mika at 2016-12-31 14:47

mika
 2016-12-31 14:47
#185818 #185818
User since
2010-10-02
168 Artikel
BenutzerIn

user image
Hier mal der Beispiel-Code, wie ich das Laienhaft gelöst habe.
Zeile 14 und 15:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/perl

use diagnostics;
use strict;
use utf8;
use warnings;

use Data::Dumper;

sub get {
        my (@parrents) = @_;
        my @frames = ();
        for (1..3) {
                my @p = @parrents;
                push @frames, {f=>$_, p=>\@p};
        }

        return @frames;
}

my @pf= ("foo");
my @list = get((@pf, "bar",));

# letztes Feld hat einen anderen Wert
@{$list[$#list]->{p}}=@pf;

print Dumper @list;


So muss die Struktur am Ende aussehen:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$ perl foo.pl
$VAR1 = {
          'f' => 1,
          'p' => [
                   'foo',
                   'bar'
                 ]
        };
$VAR2 = {
          'p' => [
                   'foo',
                   'bar'
                 ],
          'f' => 2
        };
$VAR3 = {
          'p' => [
                   'foo'
                 ],
          'f' => 3
        };

Last edited: 2016-12-31 14:56:48 +0100 (CET)

View full thread Wie eine Liste als Hash-Value?