
BigRich
Novice
Apr 29, 2001, 3:13 PM
Post #4 of 4
(315 views)
|
That still won't make "ar" sort before "ag" or "ap", upper or lower case. If the op wants to have the lower case sorted and placed before the upper case then he'll need something like: $dir = '/home/perl/MP3s/'; @unsorted = <DATA>; @sorted_lc = sort grep /^$dir[a-z].+/, @unsorted; @sorted_uc = sort grep /^$dir[A-Z].+/, @unsorted; @sorted = (@sorted_lc,@sorted_uc); for (@sorted) { print $_,"\n"; } BigRich
|