perl - 正则表达式匹配0到100之间的任何数字？

Question

我需要一个正则表达式来匹配 0 到 100 之间的任何数字，包括十进制数字示例：我的表达式应该像这样匹配 1,2,2.3 ,40,40.12 ,100,100.00 ..提前谢谢？

Answer 1

假设你必须允许一个领先的标志，你最好写

if ( /(?<![-+.\d])([-+]?\d+(?:\.\d*)?(?![-+.\d])/ and $1 >= 0 and $1 <= 100 ) { .. }

但是如果你被迫使用正则表达式，那么你需要

if ( /(?<![-+.\d])(([-+]?(?:100|\d\d)(?:\.\d*)?(?![-+.\d])/ ) { .. }

这些模式可能比必要的更复杂，因为它们允许数字出现在字符串中的任何位置。如果您只是检查整个字符串以查看它是否符合条件，那么它可能会短得多

Answer 2

This would work:

(100(\.0+))|([0-9]{1,2}(\.[0-9]+)?)

match either "100" (with optional dot plus one or more zeroes) or one or two digits, optionally followed by a dot and at least one digit.

Answer 3

已编辑！！！

这个问题比我最初意识到的要困难得多。经过一番努力，我制作了一个没有错误的新正则表达式。享受。

/(?<!\d)(?<!\.)(100(?:(?!\.)|(?:\.0*+|\.))(?=\D)|[0-9]?[0-9](?:\.|\.[0-9]*+)?(?=[\D]))/

此模式将在 $1 中捕获