这段代码怎么不能运行,哪有错呢?

wangsheng0415

1. LINE: while (<STDIN>) {
   
2.         while (s|({.*}.*){.*}|$1 |) {}
   
3.         s|{.*}| |;
   
4.         if (s|{.*| |) {
   
5.             $front = $_;
   
6.             while (<STDIN>) {
   
7.                 if (/}/) {      # end of comment?
   
8.                     s|^|$front{|;
   
9.                     redo LINE;
   
10.                 }
    
11.             }
    
12.         }
    
13.         print;
    
14.     }

复制代码

cobrawgl

晕了晕了晕了

timespace

相当逆天的代码啊，不合理利用正则表达式“.*”的典型！

[ 本帖最后由 timespace 于 2008-8-26 10:31 编辑 ]

forlorngenius

是头晕

zzyong08

这一行
s|^|$front{|;
改成
s|^|{$front}{|;
就没有错误了