不明白这个Magic Perl Code!

cinanine

个人解释: (如有误用,敬请指教)....
$|为特殊变数:只有两种状态(跟C/C++的boolean一样)

$|的两种 ...
jason680 发表于 2011-04-08 07:32

    cu高人很多，却没一个真正的高人能够真正的给我解惑

    真正的高人!!Jason680!!
    Jason680!!
    真正的高人给我解惑le!!
      

谢谢！Jason680!!

x9x9

cu高人很多，却没一个真正的高人能够真正的给我解惑

    真正的高人!!Jason680!!
    Jason680 ...
cinanine 发表于 2011-04-09 00:13

    如果你真的想搞明白，那就先放下Perl，去学下C，然后去看Perl的源码。
Perl的出现及流行就是因为它提供了各种解决问题的便捷方式与思路，也正是Perl存在的必要。
和$_一样，$|也是个内部内置的变量，在Perl的意义下知道它如何使用也就够了。
这是Perl提供的便利，也是它区别于别的语言的特性。
这是Perl的约定，也如同计算机的二进制是约定。
亦如同万物的约定。如同宇宙的约定。如同男女性别的约定。此赖于上帝的心思。
当然你可以有你的约定，那时就会有另一种语言的出现。

cinanine

如果你真的想搞明白，那就先放下Perl，去学下C，然后去看Perl的源码。
Perl的出现及流行就是因为 ...
x9x9 发表于 2011-04-09 10:32

    在生活里找一种约定，
    上帝提供的便利，
    这是万物的约定。
    如同宇宙的rule...
    真正的高人!!Jason680!!

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;

复制代码

明白了吧 。

flw

这贴楼主太SB了，我已经实在忍受不住了。
给个封帖理由吧：请尊重他人，以获得尊重。