+ -
当前位置:首页 → 问答吧 → 请教perl -ne 'while(<>){print}' file问题

请教perl -ne 'while(<>){print}' file问题

时间:2010-08-23

来源:互联网

  1. perl -ne 'while(<>){print}' file
复制代码
这个命令行应该相当于下面这段吧:
  1. while(<>)
  2. {
  3.         while(<>)
  4.         {
  5.                 print;
  6.         }
  7. }
复制代码
但是为什么
  1. perl -ne 'while(<>){print}' file
复制代码
到最后一行就停在那里不动了呢?而下面那段却没这个问题。

作者: yybmsrs   发布时间: 2010-08-23

perl 5.10

我试了效果一样子,都卡住了。

作者: 黑色阳光_cu   发布时间: 2010-08-23

这不是卡住了。

外层循环的第二轮时,@AGRV为空,perl执行<>时从标准输入读取数据。

作者: blackold   发布时间: 2010-08-23

嗯哪~~~~

作者: 黑色阳光_cu   发布时间: 2010-08-23