Perl 哈希：使用来自外部文本文件的键/值对答案

【问题标题】：Perl Hashes: Using key/value pairs from external text filePerl 哈希：使用来自外部文本文件的键/值对
【发布时间】：2019-06-11 02:30:11
【问题描述】：

我正在尝试创建一个哈希，该哈希从我服务器上的单独文本文件中提取其键/值对。

当我手动将键/值对输入到我的 perl 脚本中的散列中时，如下例所示，当我稍后调用它时，散列可以完美地工作：

# Initialize hash 
my %format_key = ('SGBK', 'PRINT', 'SGDVD', 'VIDEO');

# Call hash (this is much later in the program)
$item_format = $format_key{$fields[2]};

当我将这些完全相同的参数保存到文本文件中，然后读入该文件，将内容保存到标量变量，并将该变量分配给散列中的参数时，散列不起作用。这是我所做的：

# Open file path saved in $format_key_file and save contents to $output
open(my $fh, '<', $format_key_file) or die "Could not read from $format_key_file, program halting."; {
 local $/;
 $output = <$fh>;
 }
 close($fh);

my %format_key = $output;

 # Call hash (this is much later in the program)
    $item_format = $format_key{$fields[2]};

我完全被难住了。我想我可以手动将所有哈希参数输入到脚本本身中，但是会有很多这些参数，我希望将它们保存在一个文件中，以便于以后更新。

【问题讨论】：

$output 是一个包含所有文件的字符串（甚至包括换行符）。这不会让%format_key 非常高兴，并且与您“手动”执行的操作不同。文件格式是什么？
如果您可以选择以哪种格式将这些内容存储在文件中，请参阅@Grinnz 的回答以获取一些选项，其中最合理的选项在示例代码中提供。但是如果给出了文件，那么我上面的问题就是：该文件的格式是什么？（除非它是答案中的选项之一。）

标签： file perl hash

【解决方案1】：

当您从文件中读取时，您会得到一个字符串（或多个字符串，如果您逐行读取）。 Perl 解析器只解析传递给 Perl 解释器的源代码，而不是您从文件或其他地方读取的任何内容。您可以使用eval 函数将像这样的任意字符串评估为 perl 代码并返回最后一个表达式的结果（在本例中为字符串列表），但字符串 eval 很危险，因为它可以运行任何代码；如果您不小心读取了包含system 'rm -rf ~/*' 的文件，您就有问题了。

更好的选择是以已知的序列化格式存储您的数据。用于此类事情的常用格式是JSON，因为它巧妙地映射到 Perl 数据结构，但是对于像这样的简单情况，您也可以将字符串存储为行（没有像引用这样的 Perl 语法）。还有许多其他选项，例如 YAML，甚至 XML，但它们更难解码；和二进制格式，如 Storable、Sereal 和 CBOR，但它们不是人类可读的，因此只能通过您的代码进行交互。

use strict;
use warnings;
use JSON::MaybeXS;
# if you store it as JSON: {"SGBK":"PRINT","SGDVD":"VIDEO"}
my %format_key = %{decode_json($output)};
# or from an even-sized array: ["SGBK","PRINT","SGDVD","VIDEO"]
my %format_key = @{decode_json($output)};

# if you store it as one value per line
my %format_key = split /\n/, $output;

【讨论】：