Perl & Javascript/HTML loop

Perl & Javascript/HTML loop

本文关键字：HTML loop Javascript amp Perl      更新时间：2023-09-26

我在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"自动"点击提交功能？我知道这在带有油脂猴子的用户脚本中是可能的，尽管我希望能够在网页上完成所有这些操作。

你想循环什么？

在你的代码中只有一个提交按钮，在 JavaScript 中，你可以在表单可用的任何时候提交这样的表单（即像 onload 这样的事件）：

document.forms[0].submit();

如果您想多次单击表单提交（无论出于何种原因），请循环提交（这是您想要循环的）以获得您想要的提交数量。尽管这样做似乎是一个糟糕的选择。或者，您也可以为该提交按钮提供一个 ID 并使用 JS 模拟单击：

document.getElementById("submit_id").click();
相关文章：