如何使用Perl检查记录中的前三个字符

Question

此片段检查以下记录中的第一个字符“是否为300.如何检查不同的值，例如，记录是以300或301开头，还是302（最多308）后面的”？

if($catcha=~m/^"300/is)

Answer 1

您可以定义最后一位[0-8]的范围，

if ($catcha =~ m/^"30[0-8]/)

Answer 2

将正则表达式更改为

if($catcha=~m/^"30[0-8]/is)