Sortierung

[Klaus Mock]

Hallo,

Deswegen bringt mir auch die reine Sortierung nach der Reihe nichts - ich muß wissen, wie lange $var1 mit "1" belegt ist, damit ich in einer Unterschleife die Werte mit der Variablen-Reihenfolge "1 0" - "1 1" - "1 2" usw. in die Felder schreiben kann.

»»

Und daran knabbere ich gerade...

Na dann kombinier mal die Regex von gestern mit einer Sortierung und pack das ganze in ein Zwischenarray

<sample>

1. umschlichten in ein Array

foreach my $key(keys %forumularwerte)
  {
  if($key =~ /^Level2Feld(\d+)UKap(\d+)$/)
   {
   $werte[$1][$2] = $formularwerte{$key};
   }
  }
#2 sortiert ausgeben
foreach my $feld (@werte)
   {
   &ausgabe_feld($feld);
   }

sample fürs ausgeben

sub ausgabe_feld
{
my($feldinhaltref) = shift;

print OUTHNDL "<irgendein_xml_zeuchs>";
foreach my $kap (@$feldinhaltref)
  {
  &ausgabefeldinhalt($kap);
  }
print OUTHNDL "</irgendein_xml_zeuchs>";
}

</sample>

Natürlich fehlt da noch ein haufen, beispielsweise ist das Ding mit dem OUTHNDL nicht sauber, da könntest Du auch was mit einer Referenz auf das Handle machen, aber ich denke der Sinn kommt soweit rüber.

Grüße
  Klaus

PS.: Jetzt solltest Du aber für Deine Arbeit doch mal beispielsweise das Perl-Kochbuch besorgen, das nicht wir plötzlich mit Dir zusammmen das Diplom erhalten müssen ;-)