Thread XML::Simple - XML bearbeiten und speichern (12 answers)
Opened by guenni at 2013-02-27 12:15

Muffi
 2013-02-28 08:25
#166070 #166070
User since
2012-07-18
1465 articles
BenutzerIn
[default_avatar]
Und so ungefähr müsst die rekursive Version ausschaun.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
sub exec_data {
    my ($data, $level) = @_;
    print "id: $data->{id}\n";
    print "level: $level\n";
    if (exists $data->{data}) {
        exec_data($_, $level +1) for @{$data->{data}};
    }
}

exec_data($_, 1) for @{$data->{data}};


[EDIT] Von der Lesbarkeit find ich die fast schöner, ist aber wohl Geschmackssache. Wenn du eh mal vorhast dir Rekursion anzuschaun wär das ein schönes und einfaches Beispiel. Wärs also wert ein bisschen drüber zu knobeln bis man versteht was es tut.
Last edited: 2013-02-28 08:47:28 +0100 (CET)
1 + 1 = 10

View full thread XML::Simple - XML bearbeiten und speichern