XML::Simple - XML bearbeiten und speichern - #166069 (Fragen zu Perl-Modulen)

Muffi

2013-02-27 23:58

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Das level muss man mit abspeichern

Code (perl): (dl )

my @todos = map { { data => $_, level => 1 } } @{$data->{data}};

while (@todos) {
    my $todo = pop @todos;
    print "id: ", $todo->{data}{id}, "\n";
    print "level: ", $todo->{level}, "\n";
    if (exists $todo->{data}{data}) {
        push @todos, map { { data => $_, level => $todo->{level} +1 } } @{$todo->{data}{data}};
    }
}

[EDIT] hübscher (2mal map ersetzt)

Code (perl): (dl )

my @todos = ();
push @todos, { data => $_, level => 1 } for @{$data->{data}};

while (@todos) {
    my $todo = pop @todos;
    print "id: ", $todo->{data}{id}, "\n";
    print "level: ", $todo->{level}, "\n";
    if (exists $todo->{data}{data}) {
        push @todos, { data => $_, level => $todo->{level} +1 } for @{$todo->{data}{data}};
    }
}

Last edited: 2013-02-28 15:21:13 +0100 (CET)

1 + 1 = 10