Question

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

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

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

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

使用open
使用<>
使用m//
关闭文件

为了睡觉（a秒），您必须sleep(a)

请注意，除非您对文件句柄执行seek，否则必须close然后重新open才能使其达到开头。

至于您的具体问题，它似乎是作为seek perldoc

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

1 个答案: