这样的表达式怎么写，求教，高手请进

deadgirl

随意一串数字例如 xxxxabab ，且a！=b，且b不能等于6，7，8，9；例如12345675353，我想判断这串数字结尾后四位是否复合
这个条件怎么判断，彼人写了半天，结果不对，这里请教了，用perl写这个正则表达式怎么写呢，前提是我不想把这个字符串截取后四位来匹配

一梦如是

改成这样差不多了，大家帮忙看看有没有问题。

1. print $& if ( $a =~ m/(\d)(?=\d)(?!\1)([^6-9])\1\2$/ );

复制代码

[ 本帖最后由 一梦如是 于 2007-4-8 13:03 编辑 ]

deadgirl

tks 我去验证一下，不明之处还请赐教 啊

deadgirl

sorry ,不成功，测试结果不对

ocean390

print $a if $a=~/^\d+(?=(\d)(?!\1)([0-5])\1\2$)/;

[ 本帖最后由 ocean390 于 2007-4-8 23:18 编辑 ]

truemyself

/(\d)*((\d)[^6|7|8|9|$2]){2}$/

一梦如是

原帖由 deadgirl 于 2007-4-8 22:16 发表
sorry ,不成功，测试结果不对

如何不对？

woodie

这个如何：
/^\d+(?!(\d)\1)(\d[0-5])\2$/

一梦如是

哈哈，才发现自己原来画蛇添足了，居然用

1. (?=\d)([^6-9])

复制代码

表示

1. ([0-5])

复制代码

deadgirl

sorry，我测错了，后来发现是没问题的，今天过来准备回，看大家都给了答案呵呵
只是有个地方不太明白m/(\d)(?=\d)(?!\1)([^6-9])\1\2$ 中的\1\2是什么意思