Perl和Javascript / HTML循环

Question

我在perl中有一个小脚本。 脚本中有一个“表单”。 表单如下所示：

sub print_form {
        my ($tt, $idnum) = @_;
        print "<CENTER>\n";
        print "<FORM METHOD='POST' ACTION='/cgi/thisscript.pl'>\n";
        print " <INPUT type='hidden' name='idnum' value='$idnum' />\n";
        print " <INPUT type='hidden' name='rain' value='$ttprefix' />\n";
        print " <LABEL FOR='pin'>label 1</LABEL>\n";
        print " <SELECT name='pin'>\n";
        my $profiles = $tt->get_profile_urls;
        for my $pin (keys %$profiles){
                print "         <OPTION value='$pin'>$profiles->{$pin}{name} ($pin)</OPTION>\n";
        }
        print " </SELECT>\n";
        print " <BR />\n";
        print " <LABEL FOR='invid'>Select the qouta</LABEL>\n";
        print " <SELECT name='invid'>\n";
        my $qouta = $tt->get_qouta;
        for my $invid (sort { $a <=> $b } keys %$qouta){
                my ($name, $pren) = ($qouta->{$invid}{name}, $qouta->{$invid}{pren});
                print "         <OPTION value='$invid'>$name ($pren)</OPTION>\n";
        }
        print " </SELECT>\n";
        print " <BR />\n";
        print " <LABEL FOR='qty'>qouta quantity</LABEL>\n";
        print " <INPUT type='text' name='qty' value='$atom' />\n";
        print " <BR />\n";
        print " <INPUT type='submit' value='submit'/>\n";
        print "</FORM>\n";
        print "</CENTER>\n";
}

我试图循环它，例如，一个javascript函数（在同一页面上）将自动单击“提交”按钮＃次。
是否可以让javascript“自动”点击提交功能？ 尽管我希望能够在网页上完成所有操作，但我知道在使用油脂猴子的用户脚本中可以做到这一点。

Answer 1

您想循环播放什么？

在您的代码中只有一个提交按钮，在JavaScript中，您可以在表单可用时（例如onload之类的事件）随时提交这样的表单：

document.forms[0].submit();

如果您想多次单击表单提交（无论出于何种原因），请以所需的提交数量循环执行一次提交（即您要循环的内容）。 尽管这样做似乎是一个错误的选择。 或者，您也可以为该提交按钮指定一个ID，并使用JS模拟点击：

document.getElementById("submit_id").click();