Sortieren nach Feld X

@test[0]="Herr;Hans;Muster;Mustergasse 99;9999;Mustershausen;099 999 99 99";
@test[1]="Herr;Fritz;Meier;Teststrasse 78;6786;Testingen;077 777 77 77";

Es muss eine Subroutine geschrieben werden, welcher der komplette String übergeben werden kann und die dann den für die Sortierung relevanten Teil zurückliefert.

In unserem Beispiel sähe die Subroutine etwa so aus:

sub NameSort
  {
  my (@InputData);
  @InputData=split(/;/,@_[0]);
  return @InputData[2];
  }

Das Array kann nun mit folgendem Befehl alphanumerisch sortiert werden:

Folgender Code sortiert das Array numerisch:

Das Ergebnis wird jeweils in das Array @test1 geschrieben. Hier noch eine allgemein gültige Subroutine, bei der Trennzeichen und Spalte übergeben werden können.

#@test1=sort {&SpaltenSort($a,"Trennzeichen",Spalte) cmp &SpaltenSort($b,";",Spalte)} (@test);
#Spalte beginnt jeweils bei 0
sub SpaltenSort
  {
  my (@InputData);
  @InputData=split(/@_[1]/,@_[0]);
  return @InputData[@_[2]];
  }

Dieser Artikel wurde zugesandt von: Jürg Sommer, knowledge@cgicorner.ch