小编lit*_*tar的帖子

我知道有一个库可以做到这一点

使用Scalar :: Util qw(looks_like_number);

但我想用perl正则表达式来做.而且我希望它能用于双数而不仅仅是整数.

所以我想要比这更好的东西

$ var =〜/ ^ [+ - ]？\ d + $ /

谢谢.