【泣血求助】[^.]或者[^-][^.-][^\.-]都不行！我想匹配除负号和小数点外的数字

clysdym

比如一个数：-2.978ab%￥445
我的命令式 if ($input =~ m/\D[^.-]/) {
   print "it is a illegal number"
}

请教大家 [^]的功能不就是“除了方括号里面的内容之外”的意思吗？为什么我换了[^-\.][^.][^-][^.-][^\.-]等等都不行呢？
在线等，拜谢··（我用的是perl）

jason680

回复 1# clysdym

which number you want

$ echo "-2.978ab%￥445" | perl -lane 'print join",",split/[^\d.-]+/'
-2.978,445

   

clysdym

回复 2# jason680


    不是……我不想抽提里面的数字，我只是想验证：输入一个数字，经过这个程序，如果数字里面含有字母之类的……那就输出“输入不正确”。
我用的perl写的，但是程序执行时总是达不到目标；比如我输入3.1，那么因为里面的小数点不是数字型，所以用正则表达式\D匹配时要将其排除掉，但是总是排除失败，你可以复制下来试试。。。。。

程序猿zy

echo ".31" | perl -lane 'if(m/\D/){print "it is a illegal number";}'   

是这个意思吗  出现了数字之外的就打印不合法字符

rubyish

kanbudong  

1. [ -2.978ab%￥445 ]      it is a illegal number
   
2. [ -5 ]  it is a illegal number
   
3. [ .5 ]  it is a illegal number
   
4. [ 10,000 ]      it is a illegal number
   
5. [ a. ]  it is a number
   
6. [ 12..--- ]     it is a number
   
7. [ -0.12 ]       it is a illegal number
   
8. [ 34.. ]        it is a number
   
9. [ 12a ] it is a number
   
10. [ 3.1 ] it is a illegal number
    

复制代码

what is this?
除负号和小数点外的数字
shi include haishi exclude?

• +int
• +-float, and +-int
  

zhlong8

平时用 Scalar::Util::looks_like_number 就行了，它认 Perl 中的数字语法加上 'Infinity'/'+Infinity'/'-Infinity'，如果要求很严格那用模块 Regexp::Common

104359176

你的代码的问题是没有加锚定符号：

1. /^\D/

复制代码

L_WC

回复 3# clysdym

1. use strict;
   
2. use warnings;
   
3. 
   
4. use Scalar::Util qw(looks_like_number);
   
5. 
   
6. my $input = <STDIN>;
   
7. chomp $input;
   
8. 
   
9. if (looks_like_number($input)) {
   
10.     print "it's number\n";
    
11. } else {
    
12.     print "it isn't  number\n";
    
13. }

复制代码

104359176

Perl 5 不分数字和字符串，数据类型只有引用（标量，数组，哈希，对象）和非引用，至于值的类型，通常是通过正则表达式来对字符串化的值进行匹配，这很不方便。Perl 6 彻底解决了这个问题：

1.    my $int = 1;
   
2.    $int ~~ Int;
   
3. 
   
4.     my $str = 'hello';
   
5.     $str ~~ Str;

复制代码

这样即使想编写类型系统和 C 一样严格的代码，也成为可能。

sunzhiguolu

1. print "It's illegal number!\n" if ($input =~ /\A(?:[+-])?.*?[^.\d]/);

复制代码