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;
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
};
2016-12-31T14:00:39 hlubenowUnd? (Wenn man eine komplexere Struktur aufbaut, wird das nie "schön".)
2016-12-31T14:21:52 mika2016-12-31T14:00:39 hlubenowUnd? (Wenn man eine komplexere Struktur aufbaut, wird das nie "schön".)
Du sagst also das ist OK? Gut!
Mir fehlt einfach die Praxis und so, um das beurteilen zu können.