Perl: sorting by string

dangral · #1 (**permalink**) 04-21-2009

I have an array full of string values that need to be sorted, but if a value starts with (regex) 0^[SV] it should be at the beginning of the array. Otherwise the array should be sorted normally using ascii sort.

Please help me create the sub to pass to the sort function.

ghostdog74 · #2 (**permalink**) 04-21-2009

show some examples

dangral · #3 (**permalink**) 04-21-2009

It will look like this before:

Quote:

0L43
0H98
STB45
0S22
0V54
0V72
0S09
EL24
0A13

and after

Quote:

0S09
0S22
0V54
0V72
0A13
0H98
0L43
EL24
STB45

ghostdog74 · #4 (**permalink**) 04-21-2009

here's one idea
1) got through each element of the array, check for ^0[SV], if yes, push to array1. at the same time, those not ^0[SV] , push to array2
2) sort array1 ( using sort function), and array2
3) join the new arrays together, putting array2 behind array1

pludi · #5 (**permalink**) 04-21-2009

Write your own sort-sub, more in perldoc -f sort

dangral · #6 (**permalink**) 04-21-2009

Quote:

Originally Posted by pludi

Write your own sort-sub, more in perldoc -f sort

Thanks. I figured it out.

Code:

sub Bysite {
    if ( $a =~ /^0[SV]/ ) {
        return -1;
    }
    elsif ( $b =~ /^0[SV]/ ) {
        return 1;
    }
    lc($a) cmp lc($b);
}

@array = sort Bysite @array;

KevinADC · #7 (**permalink**) 04-22-2009

Quote:

Originally Posted by dangral

Thanks. I figured it out.

Code:

sub Bysite {
    if ( $a =~ /^0[SV]/ ) {
        return -1;
    }
    elsif ( $b =~ /^0[SV]/ ) {
        return 1;
    }
    lc($a) cmp lc($b);
}

@array = sort Bysite @array;

Thats a good solution but it will not sort your sample array into what you posted:

0S09
0S22
0V54
0V72
0A13
0H98
0L43
EL24
STB45

it sorts a little differently:

0S22 <--
0S09 <--
0V54
0V72
0A13
0H98
0L43
EL24
STB45

but maybe close enough is OK

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
sorting ASCII string containing numbers	GKnight	UNIX for Dummies Questions & Answers	8	04-24-2009 08:26 AM
Sorting an address string	Minimum	Shell Programming and Scripting	0	09-13-2008 04:15 PM
PERL data - sorting	eagercyber	Shell Programming and Scripting	3	06-20-2008 03:02 AM
perl sorting	joeyg	Shell Programming and Scripting	5	02-15-2008 03:56 PM
Sorting a string	Khoomfire	UNIX for Advanced & Expert Users	14	01-18-2006 04:34 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: