Perl Regex: non-captured parentheses

来源:互联网 发布:msn软件下载 编辑:程序博客网 时间:2024/05/17 06:12
___FCKpd___0
= " abc def";if ( //s+(?:/w+)/s+(/w+)/) { if (defined($1)){ print "capture /$1 = $1";} print "/t"; if (defined($2)){ print "capture /$2 = $2";}}
原创粉丝点击