B
borges2003xx
hi everyone.
some good fellow can help me to "translate" a python re in perl ?
r=re.compile(r'(?P<s1>.)(?P<s2>.)(?P<s3>.)(?P<s4>.)(?P<s5>.).*(?P=s5)(?P=s4)(?P=s3)(?P=s2){1,}(?P=s1){1,}')
it takes a five sequential substring of length 1 and tests if the same
sequence in reverse order follows.
thanx everyone
some good fellow can help me to "translate" a python re in perl ?
r=re.compile(r'(?P<s1>.)(?P<s2>.)(?P<s3>.)(?P<s4>.)(?P<s5>.).*(?P=s5)(?P=s4)(?P=s3)(?P=s2){1,}(?P=s1){1,}')
it takes a five sequential substring of length 1 and tests if the same
sequence in reverse order follows.
thanx everyone