请教高手，一个perl中的正则表达式的问题？

黑色阳光_cu

感谢ls各位的解答，谢谢各位了。。。我还想问一个正则表达式的问题，我有一个变量$a的字符串(保存的是文件名 ...
g84ch 发表于 2010-08-12 11:11

   
$b =~ /\Q$a\E/;
index($b, $a) != -1;

weikun750

是,有些字符对正则表达式有特殊的含义，称为原字符, 共有12个

\ | ( ) [ { ? . + ^ $ *

试着用下面的函数先对变量a作处理，应该就可以了

1. 
   
2. 
   
3. sub regular_exp {
   
4. 
   
5.     $pat = shift;
   
6. 
   
7.     $pat =~ s#\\#\\\\#g;
   
8.     $pat =~ s#\|#\\|#g;
   
9.     $pat =~ s#\(#\\(#g;
   
10.     $pat =~ s#\)#\\)#g;
    
11.     $pat =~ s#\[#\\[#g;
    
12.     $pat =~ s#\{#\\{#g;
    
13.     $pat =~ s#\^#\\^#g;
    
14.     $pat =~ s#\$#\\\$#g;
    
15.     $pat =~ s#\*#\\*#g;
    
16.     $pat =~ s#\+#\\+#g;
    
17.     $pat =~ s#\?#\\?#g;
    
18.     $pat =~ s#\.#\\.#g;
    
19. 
    
20.     return $pat
    
21. 
    
22. }
    
23. 
    
24. $a = regular_exp ( $a );
    
25. 
    
26. $b =~ /$a/;
    
27. 
    

复制代码

weikun750

当然,你也可以用正则表达式里的消元断言, 消元断言会告诉正则表达式的解释器，原字符只代表本身没有特殊含义，直到\E

1. 
   
2. 
   
3. $b =~ /\Q$a\E/;
   
4. 
   

复制代码

xiaobing927

我觉得考虑下 /usr/java/jdk1.6.10_10/这种格式的表达，所以使用basename在这里比正则要舒服些

g84ch

当然,你也可以用正则表达式里的消元断言, 消元断言会告诉正则表达式的解释器，原字符只代表本身没有特殊含义 ...
weikun750 发表于 2010-08-12 14:14

  谢谢，这个方法挺方便。。。

MicoCN

/\/+([^\/]+)$/  自己留个记录而已

shilin320

回复 11# 黑色阳光_cu


    这个方便哇