On 06/08/2018 09:25 PM, Brandon Allbery wrote:
@x.sort: {
my $a = $^x ~~ m:g/\d+/;
my $b = $^y ~~ m:g/\d+/;
$a[6].defined cmp $b[6].defined
??
$a[3] cmp $b[3]
|| $a[1] cmp $b[1]
|| $a[2] cmp $b[2]
|| $a[4] cmp $b[4]
|| $a[5] cmp $b[5]
|| $a[6] cmp $b[6]
|| $x cmp $y
!! $x cmp $y
};
This is what I sent before, minus the leading "> " that I'd neglected to
remove.
Please note the second line does NOT say "my $a = $a ~~ m:g/\d+/;",
which is what you had and what produced the error you pasted. I don't
know where you got that. Likewise the third line with $b and $^y (where
again you had $b instead).
On Sat, Jun 9, 2018 at 12:19 AM ToddAndMargo <toddandma...@zoho.com
<mailto:toddandma...@zoho.com>> wrote:
On 06/08/2018 09:16 PM, Brandon Allbery wrote:
> You didn't use what I sent. It's $^x and $^y, not $a and $b.
I am lost. Would you mind writing it out for me?
$ ls | perl6 -e 'my @x=slurp(); say @x.sort: {my $a = $^x ~~ m:g/\d+/;my
$b = $^y ~~ m:g/\d+/; $a[6].defined cmp $b[6].defined ?? $a[3] cmp
$b[3] || $a[1] cmp $b[1] || $a[2] cmp $b[2] || $a[4] cmp $b[4] ||
$a[5] cmp $b[5] || $a[6] cmp $b[6] || $x cmp $y !! $x cmp $y};'
(cimtrak.log.06-08-2018_16:07:39.zip
cimtrak.log.06-08-2018_17:07:39.zip
cimtrak.log.07-08-2018_06:07:39.zip
cimtrak.log.07-08-2018_16:07:39.zip
cimtrak.log.12-08-2016_06:07:39.zip
)
:'(
