中国服务器网
  1. 中国服务器网
  3. 如何testingSTDIN是否有东西可读（Windows上的Perl）
Intereting Posts
Cron没有运行django命令 在Windows和Linux系统中如何实现物理到虚拟的IRQ映射？ 将pm2的群集模块与socket.io和socket.io-redis一起使用 缺less对System.Diagnostics.Process的引用 在batch file中实现定时input。 （倒计时一分钟） 如何检查你是否在Mac或Windows上调整Java的GUI？ 偏移如何进入堆栈？ 为什么在复制大量小文件时，与EXT3文件系统相比，NTFS文件系统如此之慢？ 在ansys的linux下的分割错误 预先编程确定文件“磁盘大小” Excel透视表无法使用VBA代码对列进行sorting Python官方安装程序丢失python27.dll 如何将C makefile项目导入到eclipse中或者放在eclipse下 HTTP状态500实例化servlet类时出错 如何在Linux上与.la库文件链接

如何testingSTDIN是否有东西可读（Windows上的Perl）

我在Perl中遇到了一个问题。 要testingSTDIN文件处理程序是否有立即读取的东西，我想这样编程。 

 while(1) { my ($l); if (TestCanRead(STDIN)) { $l = <STDIN>; HandleRead($l); } else { HandleNotRead(); } }

要么 

  while(1) { my ($l); $l = ReadImmediate(STDIN); if (defined($l)) { HandleRead($l); } else { HandleNotRead(); } }

有人可以告诉我如何在Windows系统上编写函数ReadImmediate或TestCanRead吗？ 谢谢。

不幸的是，我没有一个Windows环境来测试，但Perl声称可移植性。 因此，让我们假设Unix解决方案工作。

你想要select或包装它。 我通常使用IO::Select ，如下所示： 

 use IO::File; use IO::Select; my $select = IO::Select->new( \*STDIN ); while (1) { if (my @ready_FHs = $select->can_read(0)) { foreach my $FH (@ready_FHs) { say $FH->getline(); } } else { say "Nothing to do; napping"; sleep 1; } }