关于perl表达式的问题，请知道。有点难度哦！

yyx_attach

相关定义部分：

1. $lc=qr/\{/;
   
2. $rc=qr/\}/;
   
3. $ls=qr/\[/;
   
4. $rs=qr/\]/;
   
5. $noc=qr/[^$lc$rc]/;
   
6. $lcrc=qr/$lc|$rc/;
   
7. 
   
8. $eq=qr/\=\=/;
   
9. $ne=qr/\!\=/;
   
10. $lt=qr/\</;
    
11. $gt=qr/\>/;
    
12. $le=qr/\<\=/;
    
13. $ge=qr/\>\=/;
    
14. $eval=qr/$eq|$ne|$lt|$gt|$le|$ge/;
    
15. $mod = qr/\=|\+\+|\-\-|\+\=|\-\=|\/\=|\%\=|\*\=|\&=|\|\=|\^\=/;
    
16. $op = qr/\+|\-|\*|\%|\/|\^|\&[^\&]|\|[^\|]/;
    
17. 
    
18. 
    
19. $and=qr/&&/;
    
20. $or=qr/\|\|/;
    
21. $andor=qr/$and|$or/;
    
22. $lb=qr/\(/;
    
23. $rb=qr/\)/;
    
24. 
    
25. $lcom=qr/\/\*/;
    
26. $rcom=qr/\*\//;
    
27. $pointer=qr/\.|\-\>/;
    
28. $array=qr/$ls\ *[\w\_\s\+\-\>\*\%\^\&\|\\]*\ *$rs/;
    
29. 
    
30. $noquotes=qr/^[\'|\"]*/;
    
31. 
    
32. $pack=qr/\_\_PACK[0-9]+\_\_/;
    
33. $vartypA=qr/\ *(extern)?\ *(const)?\ *(unsigned\s+|signed\s+)?(void|int|char|long|short|float|u_char|struct(\ [\w]+)?|[\w]*?)\ *\**?\ */;
    
34. $vartypB=qr/\ *$lb\ *$vartypA\ *$rb/;
    
35. $vartype=qr/$vartypA|$vartypB/;
    
36. $typecast=qr/\**\ *$lb\ *\**\ *(unsigned\s|signed\s)?[\w\_]+\ *\**\ *$rb/;
    
37. $lva=qr/[\w\_]+$array?/;
    
38. #$lval=qr/\**\ *$typecast?\ *(\&|\-|\~|\!|\*)?\ *((\s*$lva(?:$pointer$lva)*\s*)|($lb\s*$lva(?:$pointer$lva)*\s*$rb))/;
    
39. 
    
40. #MAY 20 2011 : (&){1}
    
41. $lval1=qr/\ *$typecast?\ *((\ *(((&){1})|\-|\~|\!)?\**\ *$lva\**(?:$pointer$lva)*\s*)|($lb\ *(((&){1})|\-|\~|\!)?\**\ *$lva(?:\**|$pointer$lva)*\ *$rb))\ */;
    
42. $lval=qr/\**(((&){1})|\-|\~|\!)?(\**$lval1|$lb\**$lval1$rb(?:$pointer$lva)*)\ */;
    
43. $lval2=qr/\**($lb\**$pack+$rb)(?:$pointer$pack)*/;
    
44. 
    
45. 
    
46. #$funcdef=qr/(?<vartype>$vartype)+\ +\**(?<funcname>[^\(]+?)\ *$lb\ *(?<params>(\s*$lval\s*\,?\s*)*)\ *$rb/;
    
47. $funcdef=qr/(?<vartype>$vartype)+\ +\**(?<funcname>[\w]+?)\ *$lb\ *(?<params>(\s*$vartype?($lval|($lb(\s*[\w]+\s*\**,?)+$rb))\s*\,?\s*)*)\ *$rb/;
    
48. $funcdec=qr/(?<vartype>$vartype)+\ +((\ *$lval\ *)|($lb\ *$lval\ *$rb))\ *$lb\ *(?<params>(\s*$vartype?\s*[\w\_\*]\s*\,?\s*)*)\ *$rb\s*;/;
    
49. 
    
50. $funccall=qr/(?<funcdectype>\s*$vartype\s*)??((?<vartype>$vartype)?\s*(?<ret>$lval)\s*\=\s*(?<before>.*?))?(?<funcname>[\w\_]+)+?\ *$lb(?<params>(\ *$lval\ *(,|$op)?\ *)*)$rb\s*((?<after>.*?);)?/;
    
51. $noBracFuncCall=qr/(?<funcname>return|exit)\s*(?<params>$rval)/;
    
52. $innerfunccall=qr/[\w\_]+\ *$lb(?:\ *$lval\ *,?\ *)*$rb/;
    
53. $funccalllite=qr/\ *$vartype?\ *$lval?\ *\=?\ *[\w\_]+\ *$lb(?:\ *(?:$lval|$innerfunccall)\ *,?\ *)*$rb\ *;\ */;
    
54. $printf=qr/^(MCM_)?[^s]*printf/;
    
55. 
    
56. $rval=qr/\-?$lval|$funccall/;
    
57. $lvalop=qr/$lval(\ *($op){1}\ *$rval)+/;
    
58. #$expr=qr/$lval\ *$eval\ *$rval/;
    
59. $expr=qr/[\w\_]+\ *$eval\ *[\w\_]+/;
    
60. 
    
61. $set=qr/(?<vartype>$vartype?)(?<set>(?<lval>$lval)\ *(?<eval>$mod)\ *(?<rval>$rval)?)\ *(?<rest>\ *(?<op>$op)\ *(?<rval>$rval))*\ *;/;
    
62. $set2=qr/(?<vartype>$vartype)(?<set>(?<lval>$lval)\ *\=\ *(?<rval>$lc(\ *$lval,?\ *)*$rc))\ *;/;

复制代码

如果$_="int a=0;"当执行下列语句时，可以正确进行下去。

1. if (!/$set|$set2/){print "parseSet1: no rval!! returning..\n"; return;} #skip exprs with no rval

复制代码

但，当$_=“int a;"时，执行上述语句时，直接return出去了。如果我想当当$_=“int a;"时，不return出去，继续执行下面的语句应该怎么改啊？
       请各位大哥指导？

xiejiazhen

{:3_198:}好复杂！

Kitaisky

回复 1# yyx_attach


做 Lexer ??

if (!/$set|$set2/){
   print "parseSet1: no rval!! returning..\n";
   ###   return;
   &do_something_else();
} else

zhlong8

好乱啊，写 parser 就用 Regexp::Grammars

yyx_attach

回复 3# Kitaisky

是做语法分析， &do_something_else();的形式我觉得不是很好，因为我只想排除int a;uhcar a;也就是定义完没有赋值的这种情况，
else可能很多种情况都包含进去了。是这样吗？

Perlvim

在多提供一些代码，这些代码说明不了什么。