怎样用正则表达式匹配某个子串不超过8个字符

ste2008

怎样用正则表达式匹配某个子串不超过8个字符
比如 $str='123abcde9';
这个就是不匹配，如果少于8个字符，或者为空就匹配
怎么做，谢谢

flw

if ( not defined $str or length($str) < 8 ){
}

忠告：不要期望所有的事都用正则表达式来做，那样的程序很难看。

ulmer

for regexp:
if ($str=~/\w{0,7}/) {
    # matched
}

flw

原帖由 ulmer 于 2007-3-28 16:20 发表
for regexp:
if ($str=~/\w{0,7}/) {
    # matched
}

这个不管用的，得前后加上 ^$ 才行。

路小佳

正则有时很慢的， 版主的方法对。

appurple

chomp($_ = <STDIN>)

appurple

不好意思，手快发错了。。

/^(\d|\D){0,8}$/

flw

\d|\D 不就是 . 嘛。
汗～

ulmer

ok. for regexp in this case is better:
/^.{0,7}$/

pls don not too many "汗~"

flw

原帖由 ulmer 于 2007-3-28 16:57 发表

pls don not too many "汗~"

该汗～的时候忍住不汗～那样会对身体不好的。