如何將變量作為鍵傳遞給Perl中的哈希

Question

my $host =`hostname | cut -c8-10`;
      my %envin = ('dev','dev','stg','stage','prd','prod');
      print $envin{'$host'};

輸出：

在host.pl第7行的打印中使用未初始化的值。

無法將變量作為哈希鍵傳遞

問候，凱來

Answer 1

• 您用單引號引用$host 。 因此，不會插值。 您需要$envin{$host}來代替。 $envin{"$host"}可以使用，但是引號是多余的。
• $host可能有換行符。 （ chomp將修復）

• 通常，哈希是這樣寫的：

   my %envin = ( 'dev' => 'dev', 'stg' => 'stage', 'prd' => 'prod', );