Zeilen sortieren anhand erstem Wert der Zeile (Allgemeines zu Perl)

[thread]19005[/thread]

Zeilen sortieren anhand erstem Wert der Zeile

Tags: perl5 Array sortierung Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+9 replies

cohama

2014-04-02 10:38

User since
2011-08-16
102 Artikel
BenutzerIn

user image

Hallo,

es geht mir darum, dass ich mehrere Zeilen in einem Array habe und diese nach dem ersten Wert der Zeile neu sortieren möchte.

Beispiel-Ausschnitt:

Code: (dl )

201749 OUT 2014-04-01 00:00:00 30 38362758258 X unkown 2758259 
202261 OUT 2014-03-31 23:45:00 1027 33764785002 X national 303945793 
7744 OUT 2014-04-01 00:03:00 75 3375504915 X national 3413552992 
7749 OUT 2014-03-31 23:28:00 2235 3375504090 X national 2513238104 
7744 OUT 2014-04-01 00:05:00 15 3375504915 X international 3413552992
9041 OUT 2014-03-31 23:33:00 2323 33785239951 X national 3099196476 
204079 OUT 2014-04-01 00:13:00 0 33678999952 X international 22090506432 
204079 OUT 2014-04-01 00:13:00 0 33678999952 X international 22090506432 
204079 OUT 2014-04-01 00:14:00 37 33678999952 X international 35228489070

Last edited: 2014-04-02 10:45:53 +0200 (CEST)

Relais

2014-04-02 10:51

User since
2003-08-06
2246 Artikel
ModeratorIn

sort

Siehe da die "Examples" für "numerically"
Last edited: 2014-04-02 10:54:27 +0200 (CEST)
Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

Linuxer

2014-04-02 11:11

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Da bietet sich die Schwartzsche Transformation an; siehe http://en.wikipedia.org/wiki/Schwartzian_transform

Schnellschuss, ungetestet:

Code (perl): (dl )

# 201749 OUT 2014-04-01 00:00:00 30 38362758258 X unkown 2758259 

my @sorted = 
  # benutze die originale Zeile wieder
  map { $_->[0] }
    # sortiere numerisch anhand der extrahierten Zahl im referenzierten Array
    sort { $a->[1] <=> $b->[1] }
      # fuer jede Zeile lege eine Referenz auf einen anonymen Array an: Originale Zeile und die extrahierte Zahl am Zeilenanfang
      map { [ $_, m{^(\d+)} ] }
        # gehe die Zeilen durch
        @lines;

Last edited: 2014-04-02 11:12:52 +0200 (CEST)

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+6 replies

Muffi

2014-04-02 11:17

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Wenns mir der Zahl, nach der sortiert werden soll anfängt ist es recht einfach.

Code (perl): (dl )

{
        no warnings 'numeric';
        @a = sort { int($a) <=> int($b) } @a;
}

1 + 1 = 10

+5 replies

cohama

2014-04-02 11:35

User since
2011-08-16
102 Artikel
BenutzerIn

user image

Hallo,

vielen Dank die ganzen Hinweise, leider haben sie alle zur Folge, dass mein Array bzw. die Datei danach komplett durcheinander ist.
Das heißt die letzte Zeile des Array enthält alle sortierten Zahlen und die Zeilen zuvor alle Strings. Sprich die jeweilige Zeile wird zerlegt.

Muffi

2014-04-02 11:50

User since
2012-07-18
1465 Artikel
BenutzerIn

Das liegt aber wohl nicht an den Hinweisen ;)
1 + 1 = 10

GwenDragon

2014-04-02 11:58

User since
2005-01-17
14748 Artikel
Admin1

Schau mal:

Code (perl): (dl )

use strict; use warnings;

my @zeilen = <DATA>;

my @sortiert = 
  map { 
        $_->[0] 
  }
  sort { 
        $a->[1] <=> $b->[1] 
  }
  map { 
        [ $_, /^(\d+)/ ] 
  }
  @zeilen;
                
print for @sortiert;

=pod

ergibt als Ausgabe:

7744 OUT 2014-04-01 00:03:00 75 3375504915 X national 3413552992 
7744 OUT 2014-04-01 00:05:00 15 3375504915 X international 3413552992
7749 OUT 2014-03-31 23:28:00 2235 3375504090 X national 2513238104 
9041 OUT 2014-03-31 23:33:00 2323 33785239951 X national 3099196476 
201749 OUT 2014-04-01 00:00:00 30 38362758258 X unkown 2758259 
202261 OUT 2014-03-31 23:45:00 1027 33764785002 X national 303945793 
204079 OUT 2014-04-01 00:13:00 0 33678999952 X international 22090506432 
204079 OUT 2014-04-01 00:13:00 0 33678999952 X international 22090506432 
204079 OUT 2014-04-01 00:14:00 37 33678999952 X international 35228489070

=cut

__DATA__
201749 OUT 2014-04-01 00:00:00 30 38362758258 X unkown 2758259 
202261 OUT 2014-03-31 23:45:00 1027 33764785002 X national 303945793 
7744 OUT 2014-04-01 00:03:00 75 3375504915 X national 3413552992 
7749 OUT 2014-03-31 23:28:00 2235 3375504090 X national 2513238104 
7744 OUT 2014-04-01 00:05:00 15 3375504915 X international 3413552992
9041 OUT 2014-03-31 23:33:00 2323 33785239951 X national 3099196476 
204079 OUT 2014-04-01 00:13:00 0 33678999952 X international 22090506432 
204079 OUT 2014-04-01 00:13:00 0 33678999952 X international 22090506432 
204079 OUT 2014-04-01 00:14:00 37 33678999952 X international 35228489070

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+2 replies
Linuxer

2014-04-02 13:36
User since
2006-01-27
3890 Artikel
HausmeisterIn
Wie sieht Dein Code aus, den Du ausgeführt hast?

Wenn ich meinen Code verwende und auf Deine Beispieldaten loslasse, kommt bei mir das hier raus:
Code: (dl )

1 2 3 4 5 6 7 8 9

7744 OUT 2014-04-01 00:03:00 75 3375504915 X national 3413552992 7744 OUT 2014-04-01 00:05:00 15 3375504915 X international 3413552992 7749 OUT 2014-03-31 23:28:00 2235 3375504090 X national 2513238104 9041 OUT 2014-03-31 23:33:00 2323 33785239951 X national 3099196476 201749 OUT 2014-04-01 00:00:00 30 38362758258 X unkown 2758259 202261 OUT 2014-03-31 23:45:00 1027 33764785002 X national 303945793 204079 OUT 2014-04-01 00:13:00 0 33678999952 X international 22090506432 204079 OUT 2014-04-01 00:13:00 0 33678999952 X international 22090506432 204079 OUT 2014-04-01 00:14:00 37 33678999952 X international 35228489070
Schaut für mich erstmal gut aus. Daher nochmal die Frage, wie sieht Dein Code aus, den Du ausgeführt hast?

Es ist nicht zielführend, ins Ungewisse zu fabulieren, was bei Deinem Code falsch sein könnte, wenn Du ihn nicht zeigst.
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- Relais
  
  2014-04-02 14:06
  
  User since
  2003-08-06
  2246 Artikel
  ModeratorIn
  
  Sehr gute Lösungen in @Muffis und @Gwen's jeweils erstem Post.
  
  Führen zum richtige Ergebnis.
  
  Eine schöne Lernerfahrung.
  
  Die könnte @cohama auch machen.
  
  Und wenn nicht, tja, dann ist das eine Gute Idee, den eigenen Code zu posten, wie @Linuxer vorschlägt.
  Erst denken, dann posten --
  27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.
  
  Winter is Coming

View all threads created 2014-04-02 10:38.