perl - Perl elsif が評価されていない

Question

このコードに問題がある人はいますか? (Linux 上で) 実行すると、「エラー: 不明なホスト」ブロックに直接移動します。

Perl はバージョン 5.8.6 です

$hostname = "host2";

if ($hostname eq "host1") {
  $dbhost = 'dbi:Oracle:dbhost1';
}
elsif ($hostname eq "host2") {
  $dbhost = 'dbi:Oracle:dbhost2';
}
elsif ($hostname eq "host3" || $hostname eq "host4") {
  $dbhost = 'dbi:Oracle:dbhost3';
}
else {
  print "ERROR: UNKNOWN HOST\n";
  die "Can't connect";
}

Answer 1

コードに問題はありません。ただし、ルックアップテーブルを使用する方が簡単です（そしてより柔軟になります）。

my $driver = 'dbi:Oracle:';
my %dbihosts = (
    host1 => 'dbhost1',
    host2 => 'dbhost2',
    host3 => 'dbhost3',
    host4 => 'dbhost3',
);

my $hostname = "host2";

die "Unknown host '$hostname'" unless exists $dbihosts{ $hostname };

my $dbhost = $dbihosts{ $hostname };
print "$hostname -> $dbhost\n";

$dbh->connect("$driver$dbhost", ...);

PS：忘れましたchomp $hostnameか？

Answer 2

コードに問題はありません。それは私にとって期待どおりに実行されます。