dd <a1 a2 a33 a111>.sort: { m/ \d+ $/ }> On 24 May 2020, at 10:43, ToddAndMargo via perl6-users <perl6-us...@perl.org> > wrote: > > Hi All, > > https://docs.raku.org/routine/sort > > I need help sorting a list. > > This is the list of values I want to sort: > > H:\MyDocsBackup\backup1 > H:\MyDocsBackup\backup2 > H:\MyDocsBackup\backup126 > H:\MyDocsBackup\backup3 > H:\MyDocsBackup\backup33 > H:\MyDocsBackup\backup6 > > > This is what I want back: > > H:\MyDocsBackup\backup1 > H:\MyDocsBackup\backup2 > H:\MyDocsBackup\backup3 > H:\MyDocsBackup\backup6 > H:\MyDocsBackup\backup33 > H:\MyDocsBackup\backup126 > > > This is how I did it in Perl 5, but I can't > figure out what I did! :'( :'( :'( > > @Sorted_List = sort { > my @a = split /.*\D/, $a; > my @b = split /.*\D/, $b; $a[1] <=> $b[1]; } @Unsorted_List; > > > Many thanks, > -T
