請(qǐng)問在m//中使用了變量?jī)?nèi)插時(shí)，如何避免變量中的通配符生效？

wangchick

請(qǐng)問在m//中使用了變量?jī)?nèi)插時(shí)，如何避免變量中的通配符生效？

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

請(qǐng)問我如何讓*只作為一個(gè)普通字符，而并非通配符在m//中被匹配？
(即"Index 25*26" 會(huì)被匹配，而 "Index 226" 或 "Index 255526" 都不會(huì)被匹配)

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. }
    

復(fù)制代碼

wangchick

$ind是從一個(gè)文件中提取出來的，格式比較復(fù)雜，除了 "*" ,也有可能出現(xiàn) "**" , "." , "\" , "/" 等字符,所以手工替換是不現(xiàn)實(shí)的
我想要一個(gè)通用的方法，使$ind中的通配符通通失效

(我試過用m''代替m//，可是這樣是禁止變量?jī)?nèi)插,也就是連$ind都變成了普通字符，這樣顯然打擊面太大了...)

flw

改成：

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

復(fù)制代碼

wangchick

謝謝斑竹
果然強(qiáng)
得趕緊記到我的小本子里

aaronvox

原帖由 wangchick 于 2006-8-21 18:26 發(fā)表
謝謝斑竹
果然強(qiáng)
得趕緊記到我的小本子里

你把你小本本借我學(xué)習(xí)學(xué)習(xí)貝 就讓我偷窺下也行 呵呵

wangchick

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

flw

原帖由 wangchick 于 2006-8-21 18:26 發(fā)表
謝謝斑竹
果然強(qiáng)
得趕緊記到我的小本子里

不需要記到本子里，記到腦子里就行了。