if 命令没有按照需要执行也许是由于非局部变量？

如何解决if 命令没有按照需要执行也许是由于非局部变量？

我需要在 Perl 程序中拆分两种不同类型的记录。 每条记录都有一个不同的代码（ZBKPF_W 和 ZBUS2081_W），因此它们有不同的处理方式。

信息来自解析文件名，最后我应该根据正确的解析字段获得正确的命令。 然而，Perl 中的 if 命令显然不遵守它，在一半的情况下，我得到了错误的数据。

请允许我展示一下过程： 需要拆分的 2 种不同类型的文档进行处理：

   # get info from filename and process each file
   # BO-CC-FY-DOCID-KOFAX#.PDF
   # ZBKPF_W-DE10-2020-1900000001-00034113.PDF and
   # ZBUS2081_W-DE10-2019-5106000000-00034114.PDF 
   ( $fileindex,$filetype) = split( '\.',$dir[i] ); 
   $fname = $dir[i]; 
   $BO = "";
   $CCode = "";
   $FY = "";
   $DocNo = "";
   $KofaxNo = "";
   $CCDocNoFY = "";
   $CCFYDocNo = "";   
   
   # Get the index values from filename 
   ( $BO,$CCode,$FY,$DocNo,$KofaxNo ) = split( '\-',$fileindex );
          
   if ( $BO == "ZBKPF_W" ) {
     $R3_SAP_OBJ = "ZBKPF_W";
     $CCDocNoFY = $CCode.$DocNo.$FY;
     $CCFYDocNo = $CCode.$FY.$DocNo; 
   }
   else {
     if ( $BO == "ZBUS2081_W" ) {
       $R3_SAP_OBJ = "ZBUS2081_W";
       $CCDocNoFY = $DocNo.$FY;
       $CCFYDocNo = $FY.$DocNo;
     }
   }

所以，最后所有的记录看起来像 ZBUS2081_W 结果：

$R3_SAP_OBJ = "ZBBUS2081_W"
$CCDocNoFY = $DocNo.$FY
$CCFYDocNo = $FY.$DocNo

总是提供 if 命令的 else。

正确的结果应该是：

For ZBKPF_W-DE10-2020-1900000001-00034113.PDF
$R3_SAP_OBJ = "ZBKPF_W"
$CCDocNoFY = "DE1019000000012020"
$CCFYDocNo = "DE1020201900000001"
For ZBUS2081_W-DE10-2019-5106000000-00034114.PDF
$R3_SAP_OBJ = "ZBUS2081_W"
$CCDocNoFY = "51060000002019"
$CCFYDocNo = "20195106000000"

我尝试使用嵌套的 IF、ELSEIF 并在 MY 中使用局部变量 相同的结果......我通常不喜欢 Perl，所以我远非专家，但这是 ArchiveLink 的要求，所以我需要它顺利运行。

如果您知道为什么会是问题的根本原因，我将不胜感激。

解决方法

== 在 Perl 中比较数字。使用 eq 比较字符串。

当使用以 Z 开头的字符串时，它会被强制为数字 0，因此第一个条件始终为真。

有关详细信息，请参阅 perlop。