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

realalley

我可以匹配的啊，你的这个例子是典型的模式中的替换，又没有涉及到转义，怎么会错呢

yapand

Realalley 说得没错

楼主的程序不用修改就可以的阿!我再我的机器上试了一下是这样的，难道是因为OS其他环境的原因？

sandy_ye_1981

好像可以了。。。。。再试试。。。thanks。。

ulmer

原帖由 sandy_ye_1981 于 2006-8-23 10:41 发表
$string = ~ /^\/download\/(.+)\./;

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

例如：
my $t = "download";

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

这样子。

但现在不能这样用。。有什么 ...

Hi,

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

try this way:
perl -le '$s="/download/foo.pdf";$patt=q(/download/); print $1 if $s =~ m{^$patt(.+)};'or
perl -le '$s="/download/foo.pdf";$patt="/download/"; print $1 if $s =~ /^$patt(.+)/;'

TIPS: treat meta character individuly, use m{...}, m#...# to ecape meta chars in pattern.

Best,
    ulmer

---------------------
Just 4 Fun