Question

我正试图在档案开启有错误时,让我的指挥迅速关闭。我已经尝试了死亡的指挥,但是,在发出信号后,立即关闭指挥系统。我想能够打印错误信息,等待几秒,然后关闭或退出。现在,我可以坐下来,等待迅速结束。

open (LOG1, $file1) || (print "
# Error in opening $file1, make sure it exists! #
", sleep(3), exit);

Answer 1

页: 1 而是使用半殖民地。

Answer 2

我认为,你正在使用Windows系统。如果是的话,你可以尝试在你的文字中增加以下代码,显示: • 出版任何关键材料,以便在文字出走之前继续......。

END { system  pause  }

Answer 3

我怀疑sleep 产出缓冲没有变化,因此可以解释为什么你不看到任何印刷材料;你可以尝试:

open (LOG1, $file1) || ((print "
# Error in opening $file1, make sure it exists! #
"), $|++, sleep(3), exit);

无论如何,在我看来,最好确定一个<条码>dieAfterDelay的功能,如:

sub dieAfterDelay {
    my $msg = shift;
    my $delay = shift;
    my $errNo = shift;
    print $msg . "
", $|++;
    sleep($delay);
    exit($errNo);
}

您可以这样做:

open (LOG1, $file1) || dieAfterDelay("
# Error in opening $file1, make sure it exists! #
", 3, -1);

友情链接