Rekursiver Algorithmus über Callbackfunktion

[pl]

PS: Hash serialisieren (Schlüssel Werte Paare):

 while( my($k, $v ) = each %ENV ){
    $self->{CONTENT} .= pack("N", length $k).$k.pack("N", length $v).$v;
 }

Keine Quoten, keine Trennzeichen, binary safe, von der Plattform und von der Zeichenkodierung völlig unabhängig: Einfacher gehts nicht!

Noch Fragen 😉