Ste*_*n D 1 error-handling perl file-io
我打算在打开文件时出错,让我的命令提示符不要关闭.我已经尝试过'die'命令,但是在显示消息后立即关闭命令提示符.我希望能够打印错误消息,等待几秒钟,然后关闭或退出.现在,我可以在关闭提示之前让代码等待,但它从不显示我的错误消息:
open (LOG1, $file1) || (print "\n# Error in opening $file1, make sure it exists! #\n", sleep(3), exit);