我正在从一本书中教自己Perl,并且有以下代码片段产生错误信息
Argument "?M-\0M-^S10" isn't numeric in numeric comparison (<=>) at ./Ch14.pl line 7.
排序的结果似乎没问题,我似乎无法找到错误的原因。
#!/usr/bin/env perl
use warnings;
use strict;
my @numbers = qw/17 1000 04 1.50 3.14159 –10 1.5 4 2001 90210 666/;
sub by_number { $a <=> $b }
my @sorted = sort by_number @numbers;
答案 0 :(得分:2)
您所拥有的–
符号不是-
,它是EN DASH(U + 2013)。
使用键盘上的减号按钮删除并重新输入。