相关疑难解决方法(0)

我见过用Perl编写的一些可怕的代码,但是我无法做出这个代码的头部和尾部:

select((select(s),$|=1)[0])

在我们用来与服务器通信的一些网络代码中,我认为它与缓冲有关(因为它设置$|).

但我无法弄清楚为什么有多个select调用或数组引用.谁能帮我吗？

我想在执行脚本后刷新输出，并且所有输出都不应该出现在我的终端屏幕中。

假设我有以下示例

#!/usr/bin/perl
print "HAI \n";
sleep 5;

如果我执行上面的脚本

# ./file
HAI
#

我想将上述输出作为

# ./file
#

HAI 应该显示 5 秒，它应该被删除，并且终端中不应该有像腻子一样的输出。