doppelte Zeilen - #133778 (Allgemeines zu Perl)

MatthiasW

2010-02-28 11:15

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

2010-02-27T17:41:21 gmafx
Ginge auch was mit oben beschriebener Struktur, oder ist von dieser generell abzuraten? Wahrscheinlich schon, denn ich denke, dass viele Abläufe, die man standardmäßig mit Tabellen durchführt, eher schwierig werden könnten (zum Beispiel Sortieren).

Hm... ich frage mich, ob du meinen Beitrag überlesen hast? Dort habe ich ein Schnipsel gepostet, dass mit deiner Struktur funktioniert...

Ansonsten würde ich dir nicht unbedingt von dieser abraten. Ich denke es liegt bei dir, welche Struktur dir eher zusagt, bzw. mit welcher Struktur du besser arbeiten kannst. Sortieren ist hier auch nicht wesentlich komplizierter als bei einer Struktur, in der jede Zeile in einem eigenen Array liegt.

Hast du bspw. nur ein Kriterium:

Code (perl): (dl )

my @cols = (
    [qw/ 1 2 3 4 5 1 6 7 8 9 1 /],
    [qw/ u b c d e a f g h i z /],
);

my @idx = sort { $cols[0][$a] <=> $cols[0][$b] } 0 .. $#{ $cols[0] };
@$_ = @$_[@idx] for @cols;

vs.

Code (perl): (dl )

my @rows = (
    [qw/ 1 a /],
    [qw/ 6 b /],
    [qw/ 5 f /],
    [qw/ 3 v /],
    [qw/ 9 c /],
    [qw/ 2 a /],
);

my @idx = sort { $rows[$a][0] <=> $rows[$b][0] } 0 .. $#rows;
@rows = @rows[@idx];

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'