请教一个正则表达式疑问？

purple-37

1. 
   
2. $_="sheep 1343 sleep 233\n";
   
3. while (m/(\d+)/g) {        print "\nFound number $1\n";}
   
4. 
   
5. 与
   
6. while (m/(\d+)/ ) {print "\nFound number $1\n";}
   

复制代码

m/(\d+)/g
中的g有什么作用？为什么我没有添加g，出现死循环!

已解决：g很明显是匹配所有出现的不重叠模式, 即每个模式只匹配一次
谢谢wannachan !

[ 本帖最后由 purple-37 于 2007-1-23 13:59 编辑 ]

alexru

g -- 全局匹配

wannachan

加了g很明显是匹配所有出现的不重叠模式, 即每个模式只匹配一次, 不加就只匹配第一次出现的!

你第二个循环没加g, 你的$_总能匹配/(\d+)/, 所以条件永为真, 所以是死循环, 这是很显而易见的..

1. 
   
2. #!perl -w
   
3. $_="sheep 1343 sleep 233\n";
   
4. if (/(\d+)/g) {
   
5.     print "\nFound number $1\n";
   
6. }
   
7. 
   
8. if (/(\d+)/g) {
   
9.     print "\nFound number $1\n";
   
10. }
    
11. 这个结果和你的
    
12. $_="sheep 1343 sleep 233\n";
    
13. while(/(\d+)/g) {
    
14.     print "\nFound number $1\n";
    
15. }
    
16. 
    
17. 结果是一样的!
    

复制代码

[ 本帖最后由 wannachan 于 2007-1-22 19:00 编辑 ]