perl仅在满足值时打印，否则不打印

Question

如果找不到匹配项，如何让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";

    }

Answer 1

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

$value = &read_location;

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

或者，如果您只希望在值等于“0”

时打印消息

$value = &read_location;

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

您可以阅读有关Perl if-else构造 at this page

的更多信息