perl - 如果在 perl 中找不到，如何搜索特定字符串并进入睡眠状态？

Question

我在日志文件中有两个测试用例ActivateJob， GetJOBStatus如下所示，我的 perl 脚本当前设置PASS为默认值，它在下面的测试用例中搜索Error，如果在下面发现错误，它会将测试用例设置为FAIL. 对于GetJOBStatus测试用例，如果它是ACTIVE 脚本，它会休眠几分钟并GetJOBStatus再次执行，如果它是成功的测试用例，则通过或失败。GetJOBStatus我如何在测试用例中执行睡眠和搜索活动..请帮帮我...提前谢谢..

==============日志文件===================

Date and Time is:Thu, 20-06-2013 06:04:19
Line 4 Command:ActivateJob(Job=Test_Abort_New1);
Answer:
ActivateFTSJobResult = Success
COMPLETED

Date and Time is:Thu, 20-06-2013 06:04:19
Line 5 Command:GetJOBStatus(Job=Test_Abort_New1);
Answer:
GetJOBStatusResult = NELabel,Status,ErrorReason,Progress,CurrentUnit,Total
TSS_320_1,ACTIVE,No Error,0,BACKUP.DSC,0
COMPLETED

Answer 1

为了检查文件中的字符串，您必须

1. 使用打开文件open
2. 使用读取文件<>
3. 使用搜索文件m//
4. 关闭文件

为了睡觉（a几秒钟），你必须 sleep(a)

请记住，除非您seek在文件句柄上执行，否则您必须close重新open执行它才能到达开头。

至于您的具体问题，它似乎在seek perldoc中作为示例实现