串联未按预期在perl中工作

Question

Here is a simple piece of code in perl. Here I can print the value of the key, however I am never able to concatenate $key with $value. Whenever I try to do it the value of $key is not concatenated.Only the $value part gets printed.Can someone please help. This doesnt work with join either.

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

Answer 1

Are you sure that your hash is properly defined?

Try inserting %ENV instead of %symbol_map to see if it will then list your environment correctly. It does so for me.

I am guessing that your symbol table contains:

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

instead of:

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