串联未按预期在perl中工作

Question

这是perl中的简单代码。 在这里我可以打印键的值，但是我永远无法将$ key与$ value连接起来。 每当我尝试执行此操作时，$ key的值都不会连接在一起。只有$ value部分会被打印出来。 这也不适用于join。

while(my ($key, $value) = each(%symbol_map)) {
  print $key."\n";
  print $key.$value."\n";
  print $DATA_OUT $key." ".$value . "\n";
}

Answer 1

您确定哈希定义正确吗？

尝试插入%ENV而不是%symbol_map以查看它是否可以正确列出您的环境。 对我来说就是这样。

我猜您的符号表包含：

("" =>  "HB1 HKFD HKFE 130 830 HKFD")

代替：

("134173" =>  "HB1 HKFD HKFE 130 830 HKFD")