Perl：看看函数是否成功返回

Question

我有一个运行在20个线程的perl脚本。我有一个偶尔会失败并返回的功能

Thread 15 terminated abnormally: No elements found for form number 1 at FILENAME.pl line 40 thread 15.

原因是因为我运行$mech->form_number(1)并且没有form_number（1），因为页面没有完成加载。

如何检查$ mech-＆gt; form_number（1）是否成功返回？

我尝试过next if(!$mech->form_number(1));，但这不起作用。

Answer 1

您可以先运行以下方法检查您的网页是否有表单：

next unless scalar @{ $mech->forms };