Re: RegEx Question

Simple approach:

D:\>perl -lne "print /^[0-8]{9}$/ && !/(.)(?=.*\1)/ ? 'ok' : 'not ok'"
1234
not ok
1234567689
not ok
012345678
ok
018273645
ok
010101010
not ok
^Z
[download]

And with one regexp:

D:\>perl -lne "print /^(?:([0-8])(?!.*\1)){9}$/ ? 'ok' : 'not ok'"
123456780
ok
123123123
not ok
123456781
not ok
^Z
[download]

Comment on Re: RegEx Question Select or Download Code

Replies are listed 'Best First'.
Re^2: RegEx Question by Marshall (Canon) on Sep 10, 2009 at 08:01 UTC
Simple approach: `D:\>perl -lne "print /^[0-8]{9}$/ && !/(.)(?=.*\1)/ ? 'ok' : 'not ok'"` [download] This is short and very clever, but "simple"? I think NOT. Also, I didn't see in the OP spec that this was an exact sequence of 9 digits.	[reply] [d/l]
Re^3: RegEx Question by grizzley (Chaplain) on Sep 10, 2009 at 12:11 UTC
Well, its simplier than the second approach :> And sequence of 9 or 8 digits is mentioned in discussion above	[reply]