Hur sortera i textfilsdatabas?

Morsning!

Sitter och klurar på en liten grej. Låt oss säga att jag har en enkel textfils databas med rader av typen:

IDNUMMER|NAMN|TELEFONNUMMER

Jag har ett gäng såna rader i min fil. Jag läser in filen och har raderna "o-splittade" i @database. Om jag vill sortera raderna i bokstavsordning efter namnfältet innan jag splittar varje rad och skriver ut den, hur går jag till väga då?

Exempel:

1|Bertil Johansson|123457
2|Adam Johansson|123456
3|Curt Johansson|123458

Jag vill sortera dom till:

2|Adam Johansson|123456
1|Bertil Johansson|123457
3|Curt Johansson|123458

innan jag börjar splitta raderna till variabler och skriva ut databasinnehållet. Någon som kan upplysa mig?

Tack på förhand!

------------------
:.....
Joakim Johansson
Vice VD / tekniker
Stereo Communication

Jag skulle börja med att stuva om raderna så att du får en annan kolumnfäljd (namn först) och sedan sortera som vanlig;

for($n=0;$n<=#$database;$n++){
   @parts=split(/\&#0124;/,$database[$n]); $database[$n]=join('&#0124;',$parts[1],$parts[0],$parts[2]);
}
@database=sort(@database);

------------------

/ J

Tackar!

Jag strukurerade om filen istället. Funkar fint nu.

// Joakim

Hej!

Man kunde också löst det så här:

#!/usr/bin/perl -w

use strict;

my @database = (
  '2|Adam Johansson|123456',   '3|Curt Johansson|123458',
  '4|Per Johansson|123458',    '5|Gustav Johansson|123458',
  '1|Bertil Johansson|123457', '6|Göran Johansson|123457',
);

@database =
  map { $_->[0] }
  sort { $a->[2] cmp $b->[2] }
  map { [ $_, ( split /\|/ ) ] } 
  @database;

print join "\n", @database;

Sorterings formen (map-sort-map) är känd som "Schwartzian Transform".

//Cya