nach referenz sortieren (Seite 2) (Allgemeines zu Perl)

[thread]7165[/thread]

nach referenz sortieren (Seite 2)

Leser: 1

pKai

2005-09-01 10:43

User since
2005-02-18
357 Artikel
BenutzerIn
[default_avatar]

Also bei mir nicht:

Code: (dl )

use Data::Dumper;
my @array = map {my $l = $_; chomp $l; [split /\s/,$l]} <DATA>;
my @sarray = sort { $a->[2] eq $b->[2] ? $a->[1] <=> $b->[1] : $b->[2] cmp $a->[2] } @array;
print Data::Dumper->new([\@sarray])->Indent(0)->Dump();
_ _DATA_ _
name6 22 m
name1 17 w
name5 16 m
name4 14 m
name3 20 w
name2 18 w

Code: (dl )

$VAR1 = [['name1','17','w'],['name2','18','w'],['name3','20','w'],['name4','14','m'],['name5','16','m'],['name6','22','m']];

I sense a soul in search of answers.

2005-09-01 14:55

User since
2003-08-04
12209 Artikel
Admin1

wieso eigentlich nicht einfach
$b->[2] cmp $a->[2] || $a->[1] <=> $b->[1]
?
dann werden die "weiber" genauso wie die dreibeiner richtig sortiert.\n\n

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

pKai

2005-09-02 12:53

User since
2005-02-18
357 Artikel
BenutzerIn
[default_avatar]

In der Tat. Die Variante mit || ist einfacher, aber logisch äquivalent.

I sense a soul in search of answers.

Taulmarill

2005-09-02 15:16

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

ich würde sogar sagen, dass die variante mit dem || intuitiver ist. evtl. könnte man die beiden vergleiche noch klammern, damit andere schneller verstehen, was sache ist. ausserdem spart sich die variante mit || einen eq vergleich.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

J-jayz-Z

2005-09-02 21:56

User since
2005-04-13
625 Artikel
BenutzerIn

boah, ist das Design bei euch beim Beitrag von pKai auch so verzogen?

http://j-jayz-z.de/screenshot.png

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

pKai

2005-09-03 16:46

User since
2005-02-18
357 Artikel
BenutzerIn
[default_avatar]

Ja, weil der Inhalt des CODE-Bereiches so breit ist.
Der Betrag sollte eigentlich nur FP widersprechen bzgl. seiner Aussage der Fehlerhaftigkeit meiner sort-Funktion. Da mich seitenlange Zitate mit wenig infogehalt selber nerven hab ich Data::Dumper gezwungen alles in eine Zeile zu schreiben.

I sense a soul in search of answers.

Strat

2005-09-04 01:52

User since
2003-08-04
5246 Artikel
ModeratorIn

und $b->[2] cmp $a->[2] || $a->[1] <=> $b->[1] kann man auch so schoen lesbar formatieren:

Code: (dl )

@sorted = sort {
    $b->[2] cmp $a->[2]
             ||
    $a->[1] <=> $b->[1]
} @array

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Froschpopo

2006-02-13 01:14

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Jup, funkt wunderbar :)
danke euch allen!\n\n

Crian

2006-02-13 11:40

User since
2003-08-04
5873 Artikel
ModeratorIn

Heute ist Maulwurftag *lol*

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2005-07-28 14:24.