从 shell 读取/转储 perl 哈希

Question

我有一个只读的 perl 文件，其中定义了一个巨大的哈希值。无论如何我可以阅读这个 perl 文件并转储散列内容吗？

这是文件中哈希的基本结构。

%hash_name = {
    -files => [
         '<some_path>',
    ],
    -dirs => [
         '<some_path>',
         '<some_path>',
         '<some_path>',
         '<some_path>',
         '<some_path>',
    ],
};

Answer 1

理想情况下，您应该复制文件以便对其进行编辑，然后将其转换为 模块 以便很好地使用它。

但如果由于某种原因这不可行，这里是您的选择。

如果该哈希是文件中唯一的内容，则使用do^†“加载”它并分配给一个哈希

use warnings;
use strict;

my $file = './read_this.pl';  # the file has *only* that one hash

my %hash = do $file;

do 的这种形式执行文件（将其作为脚本运行），返回最后计算的表达式。只有文件中的哈希，最后一个表达式就是哈希定义，这正是您所需要的。

如果散列未声明，所以是一个全局变量（或用our 声明），然后在您的程序中声明为our 一个具有相同名称的散列并再次加载文件do

our %hash_name;  # same name as in the file
do $file;        # file has "%hash" or "our %hash" (not "my %hash")

在这里，我们“拾取”评估为 do 的哈希值通过 our 运行文件

如果散列是“词法”，声明为my %hash（应该如此！）......好吧，这很糟糕。然后你需要解析文件的文本以便提取带有哈希的行。这通常非常很难做到，因为它相当于解析 Perl。 （可以使用map 构建散列，从作为引用或平面列表的子返回...）一旦完成，您eval 将包含定义该散列的文本的变量。

但是，如果您知道哈希是如何构建的，正如您所暗示的那样，内部任何地方都没有 ()

use warnings; 
use strict;

my $file = './read_this.pl';

my $content = do {  # "slurp" the file -- read it into a variable
    local $/;
    open my $fh, '<', $file or die "Can't open $file: $!";
    <$fh>;
};

my ($hash_text) = $content =~ /\%hash_name\s*=\s*(\(.*?\)/s;
my %hash = eval $hash_text;

这个简单的镜头遗漏了很多，假设散列如图所示。另请注意，这种形式的eval 会带来真实而严重的安全风险。

---

^† 文件也使用require 加载。除了它比do 做得更多之外，重要的是即使它运行多次require 仍然会加载该文件只加载一次。这首先对模块很重要，不应该多次加载，use 确实使用了require。

另一方面，do 每次都会这样做，是什么使它适合加载用作数据的文件，大概应该每次都读取。这是推荐的方法。注意require 本身使用do 来实际加载文件。

感谢Schwern 的评论。