如何将Perl散列哈希转换为更灵活的数据结构？

Question

在一个快速而肮脏的Perl脚本中,我有一个这样的数据结构:

$tax_revenue{YEAR}{STATE}{GOVLEV}{TAX} = integer

哈希键假设这样的值:

YEAR: 1900 .. 2000
STATE: AK, AL, ... WY
GOVLEV: state, local
TAX: type of tax (income, sales, etc.)

此外,散列键是唯一的.例如,TAX参数的值不会与另一个其他参数的值冲突.

我正在开始使用这些数据的中型项目,我想以更灵活的方式实现数据结构.我不知道我还需要的所有数据检索功能,但这里有一些例子:

# Specify the parameters in any order.
Tax_rev( qw(1902 WY state property) );
Tax_rev( qw(state property 1902 WY) );

# Use named parameters.
Tax_rev(year => 1902, state => 'WY', govlev => 'state', tax => 'property');

# Use wildcards to obtain a list of values.
# For example, state property tax revenue in 1902 for all states.
Tax_rev( qw(1902 * state property) );

我最初的倾向是继续将数据存储为散列哈希,并构建一个或多个实用程序函数(可能作为类的一部分)来检索值.但后来我想知道是否有更好的策略 - 存储除散列哈希之外的基础数据的某种方式.任何关于如何处理这个问题的建议将不胜感激.

Answer 1

请考虑将数据放在SQLite数据库中.然后,您可以灵活地运行您想要的任何查询(通过DBI或只是SQL的命令行界面),并获得适合于通过州或州的税收或税收为所有人生成税收报告的数据结构名称以字母'W'等开头的状态等我假设数据已经是某种字符分隔格式(制表符,逗号,管道等),因此可以轻松地批量导入到SQLite数据库中,节省了一些工作和代码就在那一端.