[ create a new paste ] login | about

Link: http://codepad.org/KSoSyJkc    [ raw code | output | fork ]

skeletonkey - Perl, pasted on Mar 5:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my @data = qw(
    abc
    BCD
    aaa
    bcd
    zyx
    xyz
    fge
    BBB
    CCC
    ccc
    DdD
);

@data = sort { lc($a) cmp lc($b) } @data;

print join("\n", @data) . "\n";


Output:
1
2
3
4
5
6
7
8
9
10
11
aaa
abc
BBB
BCD
bcd
CCC
ccc
DdD
fge
xyz
zyx


Create a new paste based on this one


Comments: