Froschpopo+2008-05-10 17:43:04--

mit @{$array_ref} dereferenziere ich ja alles.

Froschpopo+2008-05-10 17:43:04--

Da kann ich ja gleich ein neues Array anfangen und das alte undef setzen

DanielH+2008-05-10 17:57:04--

Irgendwie kann ich dir nicht so ganz folgen.

RPerl+2008-05-10 17:59:42--

@{$foo->{b}} = [0,1,2,3,4];

$foo->{b} = [0,1,2,3,4];

1
2
3
4
5
6
7
8
9
10
11
12

$VAR1 = {
# ...
          'b' => [                         # ?
                   [    
                     0,
                     1,
                     2,
                     3,
                     4
                   ]                              
                 ]                           #?
        };

RPerl+2008-05-10 17:59:42--

Ich frage mich nur wie man so ein hash mit arrays dynamisch generieren kann?!

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

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

$| = 1;
$\ = "\n";

my $foo = {};

for (0..10){
        
        $foo->{$_} = $_
}

print Dumper $foo

Froschpopo+2008-05-10 17:36:05--

$array_ref->[$count_indexes+1] = $neuer_index

Froschpopo+2008-05-10 17:36:05--

mit @{$array_ref} dereferenziere ich ja alles

Froschpopo+2008-05-10 20:16:36--

hmm, also das funktioniert bei mir nicht:

Das ganze ist ein HTC-Loop:

Code (perl): (dl )

1
2
3
4

while (...) {
   push @loop, { ID => $id, DATUM => $datum, SPIELER => $spieler }
}
$param{SPORTART} = \@loop;

Nun will ich später eventuell außerhalb der while nochmal Elemente hinzufügen:

Code: (dl )

$param{SPORTART}->[$#$param{SPORTART}+1]->{DATUM} = 3;

$param{SPORTART}->[$#$param{SPORTART}+1]

grep { $_->{DATUM} = 3 } @$param{SPORTART}

DanielH+2008-05-10 20:45:02--

Ich hab zwar keine Ahnung, was ein HTC-Loop sein soll,

HTC

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem