Perl风格：避免测试文件结束符

1998年1月1日，作者：Tom Christiansen

• 不要使用这个：（死锁）

      while (!eof(STDIN)) {
          statements;
      }
  

• 请使用这个代替

      while (<STDIN>) {
          statements;
      }
  

• 在非文件结束符时提示可能会很麻烦。试试这个

     $on_a_tty = -t STDIN && -t STDOUT;
     sub prompt { print "yes? " if $on_a_tty }
     for ( prompt(); <STDIN>; prompt() ) {
          statements;
     }
  

跳转到 避免不必要的反斜杠
返回 使用哈希而不是$$name
回到 索引

版权所有 © 1998, Tom Christiansen，保留所有权利。