小编eri*_*ckb的帖子

我的要求是,对于"用餐"下拉列表中的选择,第二个下拉列表"类别"应该在第一个下拉列表中动态填充与选择相关的值.然后,根据用餐下拉菜单中选择的内容,列表应在类别中更改.我编写了以下Javascript函数,但我得到的输出并没有新填充第二个下拉列表.在更改选择时,新列表将被附加到旧列表.

function changecat() {
    var selectHTML = "";

    var A = ["Soup", "Juice", "Tea", "Others"];
    var B = ["Soup", "Juice", "Water", "Others"];
    var C = ["Soup", "Juice", "Coffee", "Tea", "Others"];

    if (document.getElementById("meal").value == "A") {
        var select = document.getElementById('category').options.length;

        for (var i = 0; i < select; i++) {
            document.getElementById('category').options.remove(i);
        }

        for (var i = 0; i < A.length; i++) {
            var newSelect = document.createElement('option');
            selectHTML = "<option value='" + A[i] + "'>" + A[i] + "</option>";
            newSelect.innerHTML = selectHTML; …

我只需要一点调整,我知道所有这些代码都不完美(远非如此).我不是将数组的内容写入div,而是希望为数组中的每个数字创建一个新div,然后将其添加到卡容器中？

balls90 = [ '1', '2', '3', '4', '5', '6','7','8','9','10','11', '12', '13', '14', '15', '16','17','18','19','20','21', '22', '23', '24', '25', '26','27','28','29','30','31', '32', '33', '34', '35', '36','37','38','39','40','41', '42', '43', '44', '45', '46','47','48','49','50','51', '52', '53', '54', '55', '56','57','58','59','60','61', '62', '63', '64', '65', '66','67','68','69','70','71', '72', '73', '74', '75', '76','77','78','79','80','81', '82', '83', '84', '85', '86','87','88','89','90' ];

function getNumbers(){

    var player1 = new Array();

    balls90.sort( function() { return Math.random() - .25 } );

    for ( var i=1; i<=12; i++ ) {   
        player1.push(balls90[i]);
        document.getElementById("cardContainer").innerHTML+=(balls90[i]);
    }

}

我很困惑这个perl JAPH是如何工作的:

perl -e 'print chr(length($_)/3) for @ARGV' Perl?????????????????????????????????????????????????????????????????????????! Perl????????????????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl??????????????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl???????????????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl???????????????????????????????! Perl????????????????????????????????????????????????????????????????????????????????????????????????! Perl?????????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl??????????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl???????????????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl???????????????????????????????????????????????????????????????????????????????????????????????????????! Perl????????????????????????????????????????????????????????????????????????????????????????????????????! Perl?????????????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl???????????????????????????????! Perl???????????????????????????????????????????????????????????????????????????????! Perl????????????????????????????????????????????????????????????????????????????????????????????????????! Perl?????????????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl???????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl???????????????????????????????! Perl???????????????????????????????????????????????????????????????????????????????????????????????????????! Perl????????????????????????????????????????????????????????????????????????????????????????????????! Perl??????????????????????????????????????????????????????????????????????????????????????????????????! Perl??????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl????????????????????????????????????????????????????????????????????????????????????????????????????! Perl?????????????????????????????????????????????????????????????????????????????????????????????????????????????????! Perl???????????????????????????????????????????!

为什么length返回不同的输出看起来像同一个参数？(Perl的!)

所以我的模块有一个名为的方法push.在这个方法中,我调用了perl的内置push函数.现在我有另一个名为的unshift方法,在这个方法中,我再次调用perl的内置push函数.

 1 package Deque;
 2 
 3 ...
 4 sub push {
 5   my ($self, $node) = @_;
 6   push @{ $self->{nodes} } => $node;
 7   ...
 8 }
 9
10 sub unshift {
11   my ($self, $node) = @_;
12   push @{ $self->{nodes} } => $node;
13   ...
14 }

该程序运行,但我收到此警告Ambiguous call resolved as CORE::push() ... line 12.

所以我将第12行更改为CORE::push @{ $self->{nodes} } => $node,警告消失了.

为什么perl没有警告我第6行？有没有更好的方法摆脱警告？我无法更改方法名称.