Opened by Andreas at 2006-01-12 15:02
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
warum das nicht funzt? hast du es schon mal mit use strict; und use warnings; ausgefuehrt?
map zu verwenden ohne rueckgabewert finden etwa 95% der guten perl-programmierer sehr schlechten stil, vor allem, wenn es voellig unnoetig ist. wenn es doch mal noetig ist, dann besser for(each)-schleifen verwenden.
auf meiner HP steht unter perl -> Sortierungen was zur Schwartzian Transform (das ist das map-sort-map-konstrukt)\n\n
<!--EDIT|Strat|1137072338-->
map zu verwenden ohne rueckgabewert finden etwa 95% der guten perl-programmierer sehr schlechten stil, vor allem, wenn es voellig unnoetig ist. wenn es doch mal noetig ist, dann besser for(each)-schleifen verwenden.
Code: (dl
)
1
2
3
4
5
6
7
my @lines = <FILE>;
chomp @lines; # chomp kann auch mit listen arbeiten => map unnoetig
my @sorted = map { $_->[1] } # ganze zeile zurueckgeben
sort {$a->[0] cmp $b->[0] } # sortieren nach 2. spalte
map { [ ( split(/ +/) )[1], $_ ] } # 2dim Array bilden: [2.spalte, ganze zeile ]
@lines;
auf meiner HP steht unter perl -> Sortierungen was zur Schwartzian Transform (das ist das map-sort-map-konstrukt)\n\n
<!--EDIT|Strat|1137072338-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/