sorting A vs AA

[ibjdt]

i have a database of technical drawing info including the revision level of the drawing.

the revisions go A, B, C...Z then AA...AZ, BA...BZ, and so on.
if i sort the db by rev letter as follows:

     @rev = sort {
     (split '::', $a, 5)[1] cmp
     (split '::', $b, 5)[1]
     ||
     (split '::', $a, 5)[0] cmp
     (split '::', $b, 5)[0]
     } @rev;

**[1] is rev letter / [0] is another bit of data

the result is A, AA, B, BA, etc.

how can i get A, B, C...Z, AA, AB...AZ, BA...BZ, etc.

thanks.

 

[MillerH]

@rev = sort { length($a) <=> length($b) || $a cmp $b } @rev;

Enjoy.