请问在m//中使用了变量内插时，如何避免变量中的通配符生效？

wangchick

请问在m//中使用了变量内插时，如何避免变量中的通配符生效？

$ind="25*26";
if ($a=~m/Index $ind/) {...}

请问我如何让*只作为一个普通字符，而并非通配符在m//中被匹配？
(即"Index 25*26" 会被匹配，而 "Index 226" 或 "Index 255526" 都不会被匹配)

wangrujun

1. 
   
2. #! /usr/bin/perl -w
   
3. #
   
4. 
   
5. use strict;
   
6. 
   
7. my $ind="25\\*26";
   
8. my $a = "Index 2555526";
   
9. 
   
10. if ($a =~ m/Index $ind/)
    
11. {
    
12.     print "find\n";
    
13. }
    
14. else
    
15. {
    
16.     print "no found\n";
    
17. }
    

复制代码

wangchick

$ind是从一个文件中提取出来的，格式比较复杂，除了 "*" ,也有可能出现 "**" , "." , "\" , "/" 等字符,所以手工替换是不现实的
我想要一个通用的方法，使$ind中的通配符通通失效

(我试过用m''代替m//，可是这样是禁止变量内插,也就是连$ind都变成了普通字符，这样显然打击面太大了...)

flw

改成：

1. if ($a=~m/Index \Q$ind\E/)

复制代码

wangchick

谢谢斑竹
果然强
得赶紧记到我的小本子里

aaronvox

原帖由 wangchick 于 2006-8-21 18:26 发表
谢谢斑竹
果然强
得赶紧记到我的小本子里

你把你小本本借我学习学习贝 就让我偷窥下也行 呵呵

wangchick

同事不管它叫“小本本”，都管它叫“葵花宝典”。。。

flw

原帖由 wangchick 于 2006-8-21 18:26 发表
谢谢斑竹
果然强
得赶紧记到我的小本子里

不需要记到本子里，记到脑子里就行了。