请教一个从来没见过的正则表达式的问题。

sandy_ye_1981

$string = ~ /^\/download\/(.+)\./;

能不能把里面的download改成一个标量来匹配。。

例如：
my $t = "download";

$string = ~ /^\/$t\/(.+)\./;

这样子。

但现在不能这样用。。有什么办法解决？

yapand

use strict;

my $string = "/download/adsfk.sdsd";
my $var = "/download/";
#if($string = ~ /^\/download\/(.+)\./)
if($string = ~ /^&var(.+)\./)
{
print "It is matched!";
}
else
{
print "It is not matched!";
}


如果是"\", 情况就不一样了:

use strict;

my $string = "\\download\\adsfk.sdsd";
my $var = "\\download\\";                      # or my $var = "\\\\download\\\\"

if($string = ~ /^\Q&var\E(.+)\./)             #or  if($string = ~ /^&var(.+)\./)
{
print "It is matched!";
}
else
{
print "It is not matched!";
}


昨天这个帖子说过了，http://bbs.chinaunix.net/viewthr ... =page%3D2

呵呵，修改一下，免得误导别人了，我也是个新手

[ 本帖最后由 yapand 于 2006-8-23 16:43 编辑 ]

sandy_ye_1981

我试过了。。。也不对阿。。。。先谢了。。。郁闷中

HonestQiao

楼主可以参考：http://topic.csdn.net/t/20041021/22/3479534.html

HonestQiao

或者参考：http://dev.wl668.com/other/perl/20055251702_3479534.shtml

sandy_ye_1981

先谢谢。。法王出面相助。。我去看看

realalley

楼主的程序难道不能运行？不是没错吗？

sandy_ye_1981

错是没错。。只是匹配不了阿。。。。

realalley

= ~注意中间要没有空格

sandy_ye_1981

中间是没有空格的。。。有就报错了