Flash — Mon, 10 Jan 2005 17:50:44 +0000

Use Sort::Fields from cpan.org

Example (to sort from a comma-delimited array)

@carersorted = fieldsort '\|', [$sort_method], @carerdb;

Works like a dream.

Abhishek Reddy — Wed, 29 Dec 2004 04:10:15 +0000

Btw, here's another way of doing it, based on another script:

#!/usr/bin/perl

@lines = ("3|c","1|a","5|e","2|b","7|i","4|d","6|h");

$sep   = "\\|";
$field = 1;

foreach (@lines) {
    push(@names, (split(/$sep/))[$field]);
}


sub by_name
{
    lc($names[$a]) cmp lc($names[$b]);
}


@sortedlines = @lines[sort (by_name (0..$#lines))];

foreach $line (@sortedlines) {
    print("$line\n");
}

Abhishek Reddy — Wed, 29 Dec 2004 04:05:39 +0000

Change:

$sep = "|";

'
to

$sep = "\\|";

Ken Elliott — Tue, 28 Dec 2004 20:03:22 +0000

where o where have all the brains gone!