模式匹配请教 - PHP,PERL,Python

新生入学

注册用户

UID 69718
精华 0
积分 0(积分有什么用?)
帖子 1
阅读权限 10
注册 2004-1-7
状态离线

发表于 2006-6-13 13:57 资料个人空间短消息加为好友

模式匹配请教

在perl的模式匹配中，能不能把一个变量当作匹配条件，如果可以应该怎么写呢？

ex:
$findtag = trim($a);
$newtag = trim($b);

if( $line =~ /^\s+\<\$findtag\>\S*\<\/\$findtag\>/ )[/COLOR]{
print "-------find a match-------";
next;
}

how to write the expression filled in red.

不容错过的IBM 集群技术资源汇总

shuai4503

新生入学

注册用户

UID 140084
精华 0
积分 0(积分有什么用?)
帖子 1
阅读权限 10
注册 2005-11-1
状态离线

#2

使用道具

发表于 2006-9-27 19:38 资料个人空间短消息加为好友

没人知道么?

xiaohuforever

新生入学

注册用户

UID 66165
精华 0
积分 0(积分有什么用?)
帖子 10
阅读权限 10
注册 2003-12-12
状态离线

#3

使用道具

发表于 2007-1-15 19:56 资料个人空间短消息加为好友

匹配字符串被视为双引号引用的字符串，所以会先执行其中的变量替换，所以变量可以当作匹配条件
比如：
[B]$foo = 'house';
'cathouse' =~ /cat$foo/; # matches
'housecat' =~ /${foo}cat/; # matches[/B]

你给的[B]^\s+\<\$findtag\>\S*\<\/\$findtag\>[/B]这个表达式我感觉
"<"和"$"都不需要转义，findtag应该加{}来确定变量名的范围
所以应该写为
^\s+<${findtag}>\S*<\/${findtag}\>
你可以参考http://aspn.activestate.com/ASPN ... g_character_classes