密钥如何成为哈希值的一部分？

Question

以下是我的哈希。我不想在值部分重复密钥（city＆amp; 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;