内联if not在操作符期望的位置找到(我不精通perl)

Question

已创建使用snmp更改电缆调制解调器的脚本。一切都正常工作，直到我尝试添加关闭WIFI的能力，如果$wifi eq是。下面是我拥有的代码部分。

错误从此行开始

if (!defined($wifi)) {
    $wifi = 'no';
    }

if ($model eq 'DG950A') {
    $result = $session->set_request(
       -varbindlist => [
          $oids{arrisRouterBssActive.12}, INTEGER, 2; if ($wifi eq 'yes')
          $oids{arrisRouterBssSSIDBroadcast.12}, INTEGER, 2 if ($wifii eq 'yes')
           $oids{arrisRouterRIPSendCMInterface}, INTEGER, 2,
         $oids{arrisRouterRIPAuthEnable}, INTEGER, 0,
         $oids{arrisRouterRIPRoutedSubnetEnable}, INTEGER, 1,
         $oids{arrisRouterRIPRoutedSubnetIP}, OCTET_STRING, hexip((split "/", $ip->first())[0]),
         $oids{arrisRouterRIPRoutedSubnetGWNetIP}, OCTET_STRING, hexip((split "/", $ip->first())[0]),
         $oids{arrisRouterRIPRoutedSubnetMask}, OCTET_STRING, hexip($mask),
           $oids{arrisRouterRIPEnable}, INTEGER, 1,
         $oids{arrisRouterFWEnabled}, INTEGER, 2,
         $oids{arrisRouterFWIPFloodDetect}, INTEGER, 2,
         $oids{arrisRouterFWAllowICMP}, INTEGER, 1,
         $oids{arrisRouterApplyAllSettings}, INTEGER, 1

        ]);

Answer 1

我将if语句上移到顶部if语句if if ($model eq 'DG950A') { changed to if ($model eq 'DG950A‘&& $wifi eq’DG950A‘){