perl仅在满足值的情况下打印，否则不'；t打印

如果未找到匹配项，如何使perl不打印。 这就是我目前拥有的

    if ( "$types" eq "aa") {
    $types="bbbb";
    }
    else {
    if ("$types" eq "S") {
    $types="xx";
    @TICKET="yy";
    }}

    $value= &read_location;
    if ("$value" ne "0"){
    print "@record  NOT KNOWN PLEASE DETAILS  \n";

    }

如果从

read_location

返回的值不等于“0”，则此代码仅打印“@record NOT KNOWN”。如果返回的值等于“0”，则不会打印任何内容

$value = &read_location;

if ($value ne "0"){
    print "@record  NOT KNOWN PLEASE DETAILS  \n";
}

或者，如果您只希望在值等于“0”时打印消息

---

如果您的问题令人困惑，您可以阅读更多关于Perl的内容。你到底想做什么？当这段代码运行时，它将始终打印“@records not known”，即使没有记录，我希望它不打印任何内容，如果没有记录，则打印其他内容。你需要查看从&read_location函数返回的值，并了解为什么它总是“0”以外的值有时它的值为0，有时它不是，所以当它不是时，可以设置为不打印详细信息，即else语句是否有效？它仍将打印一行，但如果值为0，它将打印“blabla不知道等”，但如果值不是0，它仍将打印“@记录不知道等”

$value = &read_location;

if ($value eq "0"){
    print "@record  NOT KNOWN PLEASE DETAILS  \n";
}