Question

我有一个HTML表单，如果填写了特定字段，则设置变量，这是我继承的Perl脚本。

    for (my $i; $i<@raw_search_value; $i++) {
    ...
    $album_search=1 if $raw_search_column[$i] eq 'album_id';
    $top40_history_search=1 if $raw_search_column[$i]=~/^top40/;
    $album_ID=$raw_search_value[$i] if $album_search;
    $album_title_search=1 if $raw_search_column[$i] eq 'album_title';
    }

    $album_title_search=1 if $raw_search_column[$i] eq 'album_title';

名为album_title的表单字段。代码使用我的$ i通过表单字段重复; $ I＆LT; @raw_search_value [$ i]于

但是我想要将变量album_title_search设置为1，如果仅填写此字段而其他字段尚未填写。换句话说，如果填写此字段并且表单中的其他字段为空，则设置为1。

我可以使用一行Perl执行此操作，还是必须将其展开以遍历每个字段并检查它是否为空？

我对此有点困惑，并且没有很长时间处理Perl代码。欢迎任何建议。非常感谢

Answer 1

您可以这样做：

$(".place-holder")
        .css({
            "-webkit-transform-origin":transCenterY+"px "+transCenterX+"px",
            "transform-origin":transCenterY+"px "+transCenterX+"px"
        });

    setTimeout(function(){
        $(".place-holder").css("transform","scale(2)");
    }, 500)

然而，它可以写得更简洁。你可以发布一些代码，特别是循环，$album_title_search=1 if $raw_search_column[$i] eq 'album_title' && grep { length } @raw_search_value == 1 # only 1 value filled && length $raw_search_value[$i] # and that value is for album_title和@raw_search_column吗？

Perl表单 - 检查字段填写

1 个答案: