关于表达式配匹的一个问题,困扰中。。。

hotren

1^# hotren 发表于 2008-05-05 16:27

怎么才能用简单方法配匹到$a呢？谢谢
#!/usr/local/bin/perl
$a="0\/0\s+(\d+)\s*";
$b='0/0 3273 ';
print $a;
if ($b=~/$a)
{
print "Matched,\$1 is $1\n";
}

churchmice

2^# churchmice 发表于 2008-05-05 18:13

\Q$a\E
或者
perldoc -f index

还有$a,$b是perl的内置变量

coobozhu

3^# coobozhu 发表于 2010-12-19 21:27

双引号要进行解析，可能不能得到你想要的结果，我试过通过PRINT出来的结果是：0/0s+(d+)s*，不是你的完整表达式内容，建议用单引号