mixed cmp operator for sorting

[Willem]

Marc Girod wrote:
) On Monday, 23 September 2013 08:30:46 UTC+1, John W. Krahn wrote:
)
)> my @t = $a =~ /\D+|\d+/g;
)> my @s = $b =~ /\D+|\d+/g;
)>
)> Avoids zero length strings.
)
) Indeed, but it implies other changes in the following.

my @t = split /(\d+)/, $a;
my @s = split /(\d+)/, $a;

Avoids both issues.


SaSW, Willem
--
Disclaimer: I am in no way responsible for any of the statements
made in the above text. For all I know I might be
drugged or something..
No I'm not paranoid. You all think I'm paranoid, don't you !
#EOT

 

[John W. Krahn]

Marc Girod wrote:
) On Monday, 23 September 2013 08:30:46 UTC+1, John W. Krahn wrote:
)
)> my @t = $a =~ /\D+|\d+/g;
)> my @s = $b =~ /\D+|\d+/g;
)>
)> Avoids zero length strings.
)
) Indeed, but it implies other changes in the following.

my @t = split /(\d+)/, $a;
my @s = split /(\d+)/, $a;

Avoids both issues.

$ perl -le'use Data:umper; my $a = "12345"; my @t = split /(\d+)/, $a;
print Dumper \@t'
$VAR1 = [
'',
'12345'
];


Not, it appears, zero length strings.



John

 

[Willem]

John W. Krahn wrote:
) Willem wrote:
)> Marc Girod wrote:
)> ) On Monday, 23 September 2013 08:30:46 UTC+1, John W. Krahn wrote:
)> )
)> )> my @t = $a =~ /\D+|\d+/g;
)> )> my @s = $b =~ /\D+|\d+/g;
)> )>
)> )> Avoids zero length strings.
)> )
)> ) Indeed, but it implies other changes in the following.
)>
)> my @t = split /(\d+)/, $a;
)> my @s = split /(\d+)/, $a;
)>
)> Avoids both issues.
)
) $ perl -le'use Data:umper; my $a = "12345"; my @t = split /(\d+)/, $a;
) print Dumper \@t'
) $VAR1 = [
) '',
) '12345'
) ];
)
)
) Not, it appears, zero length strings.

'12345' is not a zero length string.

The original code expects the numbers to always be in even positions,
so in fact it works exactly as required.

Which is what was meant by "it implies other changes in the following."


SaSW, Willem
--
Disclaimer: I am in no way responsible for any of the statements
made in the above text. For all I know I might be
drugged or something..
No I'm not paranoid. You all think I'm paranoid, don't you !
#EOT