perl - キーをハッシュの値の一部にするにはどうすればよいですか?

Question

以下は私のハッシュです。値の部分でキー ( city& )を繰り返したくありません。country

%sql_cache = (
city => "select * from city where id=106",
country => "select * from country where code='IND'",
);

Perlでそれを達成するための組み込み変数はありますか?

Answer 1

これはどう？

my %sql_cache = (
    city => "select * from %s where id=106",
    country => "select * from %s where code='IND'",
);

# use it
printf "$sql_cache{$_}\n", $_ for keys %sql_cache;