代码之家 › 专栏 › 技术社区 › Toto

奇怪的行为

sorting perl

Toto · 技术社区 · 15 年前

我有一个剧本:

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @arr = (
    {
        name  => 'foo',
        value => 123,
    },
    {
        name  => 'bar',
        value => 'nan',
    },
    {
        name  => 'foobar',
        value => 456,
    },
);

@arr = sort {$a->{value} <=> $b->{value} } @arr;

print Dumper(\@arr);

我在WindowsXP/Perl5.10.1下没有任何问题

为i386 Linux多线程构建的Linux 2.6.12-1 i386/Perl v5.8.5,

Sort subroutine didn't return a numeric value at testsort.pl line 21.

出了什么问题,我该怎么解决?

2 回复 | 直到 15 年前

Community Mohan Dere 8 年前

在某些生成中,对于一个 <=> 比较和排序成功。在其他版本中, nan 被视为“不是数字”并且 < 未定义。

( isnan 子例程来自 How do I create or test for NaN or infinity in Perl? ):

sub isnan { ! defined( $_[0] <=> 9**9**9 ) }

@arr = sort { isnan($a->{value}) ? 0 : $a->{value}
                         <=>  
              isnan($b->{value}) ? 0 : $b->{value} }  @arr;

Community Mohan Dere 5 年前

2解决方案

mobrule 的解决方案:

sub isnan { ! defined( $_[0] <=> 9**9**9 ) }
@arr = sort { isnan($a->{value}) ? 0 : $a->{value}
                              <=>  
              isnan($b->{value}) ? 0 : $b->{value} }  @arr;

Perldoc

@result = sort { $a <=> $b } grep { $_ == $_ } @input;

给你的 NaN 一 0
NaN != NaN 南

作为暴民统治说明,这是由于 南 在构建之间。

推荐文章

user66001 · 对多维数组/arraylist/hashtable进行排序

10 月前

Rewind · 同时搜索最大值/最小值的操作顺序

10 月前

papirosnik · 为什么按长度对字符串进行排序会得到不正确的结果?

10 月前

badbee · 使用xsl:sort时保留未排序元素的问题

11 月前

CottonDog · 如何在使用sort()[复制]将数组元素展平并按降序排序后保留其索引

11 月前

josepmaria · Pandas顺序列,按对列出

1 年前

BTBts · Python3文件名的字母数字排序[重复]

1 年前

Paul-ET · 对树状图应用程序发送的第一列进行排序失败

1 年前

VonDerHase · 从列表中删除特定值,Python

1 年前

Nico44044 · JS对数组进行排序,数组末尾为null和空值

1 年前