sortiersprikt rausnemen

[Wawa666]

hi
versuch da gerade mal wieder ein bischen was zu ändern.....
kann mir jemand sagen wie ich das hinbekomme das dieser funktionsaufruf das nicht erst nach der gröse sortiert????

return(maketdszwei(0,3,20,4,7,StatCountryCaches("Germany"),pairsort(1,0,%states)));

hatte es schon mit

return(maketdszwei(0,3,20,4,7,StatCountryCaches("Germany"),%states));

versucht aber da kommt immer nur 0 raus.....

 

[Wawa666]

sub maketdszwei {
   my($center,$maxcol,$keypercent,$valpercent,$perpercent,$sumval,@list) = @_;
  my($colcnt,$text,$key,$val,$col,$align);
  my($vppercent) = $valpercent+$perpercent;
  my($relvalpercent) = int(($valpercent/$vppercent)*100);
  my($relperpercent) = int(($perpercent/$vppercent)*100);
  if ($center) {
    $align = "";
  } else {
    $align = "style='text-align:left'";
  } 
  while (scalar(@list)) {    
    $key = shift(@list);
    $val = shift(@list);       
    $text = $text . "-" . sprintf("%1i",$val/$sumval);    
  }  
  return($text);
}

sollte vieleicht auch noch angehängt werden......
geplant ist eine funktion die die prozentualen funde in alphabetischer reihenfolge der bundesländer zurückgiebt.....
also z.b: 93-44-24-23-5-3-2-0-0-0-0-0
eben nur nicht so sortiert wie aktuell...

 

[HSCA]

kann mir jemand sagen wie ich das hinbekomme das dieser funktionsaufruf das nicht erst nach der gröse sortiert????

return(maketdszwei(0,3,20,4,7,StatCountryCaches("Germany"),pairsort(1,0,%states)));

Versuche es mal mit

my @array = %states;
return(maketdszwei(0,3,20,4,7,StatCountryCaches("Germany"),@array));

C