[vienna.pm] Sortierung

[marcel at codewerk.com]

* * * vienna-pm-list * * *



> Wenn ich also die Elemente (absichtlich unsortiert)
> aaa-zzz
> ccc-xxx
> bbb-yyy
> habe, dann soll folgendes rauskommen:
> 
> "a-b sortiert:"	"b-a sortiert:"
> aaa-zzz		ccc-xxx
> bbb-yyy	bbb-yyy
> ccc-xxx		aaa-zzz
> 
> Naja, ich könnte mir beide Sortierungen in Arrays reinbasteln, und dann beide
> Arrays parallel mit einer Zählschleife durchgehen.

Wuerde ich auch so machen:


    chomp( my @pack_a = sort <DATA> );

    my @pack_b =
	    map  { $_->[0] }
	    sort { $a->[1] cmp $b->[1] }
	    map  { [ $_, (/-(\w{3}$)/) ] } @pack_a;

    printf "%s %s\n", shift @pack_a, shift @pack_b while @pack_a;

    __DATA__
    aaa-zzz
    ccc-xxx
    bbb-yyy


-- 
Marcel
sub AUTOLOAD{($_=$AUTOLOAD)=~s;^.*::;;;y;_; ;;print} Just_Another_Perl_Hacker();
###
You are subscribed to vienna-pm-list as marcel at codewerk.com
http://www.fff.at/fff/vienna.pm/