Bei sort einen Eintrag vorziehen (gelöst) (Allgemeines zu Perl)

[thread]16231[/thread]

Bei sort einen Eintrag vorziehen [gelöst]

Tags: perl5 sort vorziehen Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+4 replies
bianca

2011-04-28 19:39
User since
2009-09-13
6977 Artikel
BenutzerIn
'n Abend allerseits!
Hab ein Hash und möchte diesen sortiert nach keys ausgeben. Soweit kein Problem.
Ein ganz bestimmter Key (in diesem Fall key c) soll aber an erster Stelle stehen. Wie lautet die Syntax für sort in folgendem Code?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl -w use strict; use warnings; my %test = ( a => 1, b => 2, c => 3, d => 4, ); foreach ( sort {$a cmp $b} keys %test ) { print "$_ -> $test{$_}\n"; }
Habe sort {$a eq 'c' || $a cmp $b} probiert, das stellt c ans Ende statt an den Anfang.
Bei sort {$b eq 'c' || $a cmp $b} steht es an zweiter Stelle statt am Anfang.

Wie lautet die korrekte Syntax?
Danke
10 print "Hallo"
20 goto 10
- clms
  
  2011-04-28 20:30
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  2011-04-28T17:39:05 bianca
  Habe sort {$a eq 'c' || $a cmp $b} probiert, das stellt c ans Ende statt an den Anfang.
  Bei sort {$b eq 'c' || $a cmp $b} steht es an zweiter Stelle statt am Anfang.
  
  Ich bin zu müde um auszuprobieren, aber Dein Sortierkriterium sollte
  in jedem Fall die Bedingung cmp($a,$b) == -cmp($b,$a) erfüllen.
  
  Deshalb must Du am Anfang Deiner Sortierfunktion $a und $b auf 'c' prüfen,
  damit in beiden Fällen die Sonderbehandlung für 'c' angesprochen wird.
  sort {($a eq 'c') ? -1 : (($b eq 'c') ? 1 : $a cmp $b)} könnte gehen.
  (evtl. musst Du -1 und 1 vertauschen.)
  
  Oder Du filterst 'c' vorher raus:
  foreach ('c', sort {$a cmp $b} grep {$_ ne 'c'} keys %test) {...}
- +2 replies
- pq
  
  2011-04-28 20:30
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  perldoc -f sort
  der code in sort soll liefern: -1, wenn $a kleiner als $b ist, 0, wenn sie gleich sind und 1, wenn $a grösser ist.
  sort { $a eq "c" ? -1 : $b eq "c" ? 1 : $a cmp $b }
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - bianca
    
    2011-04-28 20:51
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Danke Dir.
    Auch an clms Danke!
    10 print "Hallo"
    20 goto 10

View all threads created 2011-04-28 19:39.