正则疑问

magnet2008

perl正则中
(?(...)... ...) 是匹配if-then-else模式
(?(...)...) 是匹配if-then模式
能给讲讲什么意思并且给个例子么？
(?(1)\1)是什么意思:\1我知道是第一个括号

Kitaisky

(?(1)\1): if \1 is set, match it again; else, do nothing;

##匹配镜像数字

my $number = "53235";

print "Number $1 is symmetrical\n" if $number =~/(^   #number in $1
(\d)           #首位
(\d)?         #第2位 (可以没有，就 303)
\d             #中间位   
(?(3)\3)    #如果有第2位，就....
(?(2)\2)    #末位
$)/x