求一个正则表达式，百思不得其解！

use warnings;
use strict;

my $p='\(a,b\)';
my $s1='(a,b)';
my $s2='(a,b).add';

if($s1 =~ /$p/){print "ok\n";}else{print "no\n";}
if($s2 =~ /$p/){print "ok\n";}else{print "no\n";}

作者: proorck6   发布时间: 2010-12-19

作者: wxlfh   发布时间: 2010-12-19

作者: iambic   发布时间: 2010-12-19