Ziel = Ausgabe nach Feldnummerm wie definiert!

init "/cccs/pfeifenkopf/sr";

@h0 = sort zahlsort values %h1;
foreach $wert (@h0)
   {
    while (@dummy = each(%h1))
         {
          if ($dummy[1] == $wert)
            {
             out $dummy[0] . " = " . $dummy[1] . "<br>";
             next;
            }
         }
   }
out "<br>";
#
sub zahlsort
   {
    if ($a < $b)
      {
       return -1;
      }
    else
      {
       if ($a == $b)
         {
          return 0;
         }
       else
         {
          return 1;
         }
      }
   }
</perl>
<loop code=perl db=/cccs/pfeifenkopf/sr sort^=srNR range^=0,20>
foreach $wert (@h0)
   {
    while (@dummy = each(%h1))
         {
          if ($dummy[1] == $wert)
            {
             out $dummy[0] . "=" . $_loop{$dummy[0]} . "|";
             next;
            }
         }
   }
out "<br>";
</loop>