连接在perl中没有按预期工作

Question

这是perl中的一段简单代码。在这里我可以打印键的值，但是我永远无法将$ key与$ value连接起来。每当我尝试这样做时，$ key的值都不会连接。只有$ value部分被打印出来。有人可以帮忙。这对于加入也不起作用。

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")