[vienna.pm] Sortierung
marcel at codewerk.com
marcel at codewerk.com
Fri Jul 21 17:14:45 CDT 2000
* * * 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/
More information about the Vienna-pm
mailing list