Cheers - L~R#!/usr/bin/perl use strict; use warnings; my @needs_sorting = qw(Psdgs ldfgs Esdds aSdg Sgsdfs esdf sgfsdfg Osgr + T); @needs_sorting = map { $_->[0] } sort { $a->[1] <=> $b->[1] || $a->[0] cmp $b->[0] } map { [$_ , substr($_ , 0 , 1) =~ /^[a-z]/ ? 0 : 1 ] } + @needs_sorting; print "$_\n" for @needs_sorting;
In reply to Re: criteria based array sorting
by Limbic~Region
in thread criteria based array sorting
by zentara
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |