Opened by Andreas at 2008-04-25 16:28
User since
2004-02-19
1750 Artikel
BenutzerIn
2004-02-19
1750 Artikel
BenutzerIn
Folgendes Script zerlegt die einzelnen Elemente erst so, dass sie sortierbar werden, sortiert sie und fügt sie dann wieder zusammen. Nennt sich Schwartzsche Transformation nach Randal Schwartz:
Code: (dl
)
1
2
3
4
5
6
my @foo = qw/C1 C12 R5 C3 C21 C2 D12/;
@foo =
map { $_->[0] . $_->[1] }
sort { $a->[0] cmp $b->[0] or $a->[1] <=> $b->[1] }
map { [/(\D*)(\d*)/] } @foo;
print join( ", ", @foo ) . "\n";
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B