不明白这个Magic Perl Code!

toniz

$| 初始化为 0   
--$|  就变成 1
然后 --$|  又是 0

这东西以前仙子发过帖子解释了。

toniz

$t=0,然后--$t的话，就是-1 -2 -3 -4.....
$t是普通变量，而$|的特殊变量。
$t只是在PERL内部定义的类型是一个SV,而$|是一个PERL_MAGIC_sv ，它拥有SV所没有的特性。

toniz

++是无效的 ，你没认真看仙子的帖子。

toniz

4楼不是贴出来了么

toniz

{:2_168:}原来是这么一回事。。。那俺继续消失去。。。

toniz

{:2_174:}

toniz

{:3_186:}
仙子的帖子有这样一段，是$|变量的特性来的。

--$|   toggles between 1 and 0. It is this variable's behavior when (--$| or $|--)
       $| is initially 0. (NOTE: this behavior doesn't happen with ++$| or $|++).

如果要深究为什么会这样，这个俺可搞不定。这个涉及PERL_MAGIC_sv 的内部实现，要FLW老大来讲才行。

1. #  mg_type
   
2. # (old-style char and macro)  MGVTBL          Type of magic
   
3. # --------------------------           ------             -------------
   
4. # \0 PERL_MAGIC_sv              vtbl_sv          Special scalar variable

复制代码

toniz

你就知道 jason680说的是对的 ？

好吧 ，我承认中你 激将了 。

1. case '|':
   
2.         {
   
3.             IO * const io = GvIOp(PL_defoutgv);
   
4.             if(!io)
   
5.               break;
   
6.             if ((SvIV(sv)) == 0)
   
7.                 IoFLAGS(io) &= ~IOf_FLUSH;
   
8.             else {
   
9.                 if (!(IoFLAGS(io) & IOf_FLUSH)) {
   
10.                     PerlIO *ofp = IoOFP(io);
    
11.                     if (ofp)
    
12.                         (void)PerlIO_flush(ofp);
    
13.                     IoFLAGS(io) |= IOf_FLUSH;
    
14.                 }
    
15.             }
    
16.         }
    
17.         break;

复制代码

明白了吧 。