问题标签 [data-dumper]

Perl 中是否有一个包/函数可以让我以一种简单的方式

• 短信息（例如数字、短字符串）
• 像哈希值/校验和（例如 MD5）
• 具有良好的区别（例如像 MDx、SHAx 这样的加密哈希）
• 表示复杂数据结构的内容（例如散列数组的散列）。

我想到的最好的主意是

1. 将我的结构序列化为字符串（例如使用 Data::Dumper）

2. 使用 MDx 对字符串进行哈希处理

但也许有一些更优雅的方式。

观察 Data::Dumper 的输出，CPAN 文档中没有解释说明 符 ( $VAR1, "", )。;

1. 的目的是$VAR1什么？
2. 分号的目的是什么？
3. 报价的目的是什么？

这是我的输出：

我为我的脚本提供了一个 JSON 数据文件。然后我使用 decode_json 解码了 JSON 数据...

Dumper 输出看起来像这样......

我正在尝试使用 foreach 外观从这个数据结构中检索输出，以便我可以打印输出......

我已经尝试了各种不同的 foreach 循环和来自在线资源的哈希引用代码片段（以及一些我以前使用过并工作过的代码片段）来迭代并从哈希等中提取数据，但我似乎无法让它在这种情况下工作。除其他错误外，我还收到诸如“不是 HASH 参考...”之类的错误。

我应该使用什么正确方法将这些信息从这种类型的数据结构中提取出来？

Getting an error when I attempt to dump out part of a multi dimensional hash array. Perl spits out

Can't use string ("somedata") as an ARRAY ref while "strict refs" in use at ./myscript.pl

I have tried multiple ways to access part of the array I want to see but I always get an error. I've used Dumper to see the entire array and it looks fine.

The data is in the form machine:OS:OS version:Environment

For example

I want to print out only the servers that are solaris, version 11, in DEV. Using hashes seems the easiest way to store the data but alas, Perl barfs when attempting to print out only a portion of it. Dumper works great but I don't want to see everything. Where did I go wrong??

我正在编写一个需要使用Net::SFTP::ForeignPerl 模块从远程服务器获取文件的代码。

这是脚本。

远程服务器连接工作正常。当我打印$sftp->status出0价值时，这意味着它的成功。

即使在 Dumper 中，我也可以看到来自远程服务器的以下格式的文件。

我需要的是取出每个文件的修改时间。这需要像"filename, modification_time". 如何从 Dumper 中获取这些值。

对于Data::Dumper，我们有缩进选项：

$Data::Dumper::Indent = 1;

我不喜欢 2 或 3。在选项 1 中，添加了 2 个空格。我可以改变吗？

我使用 Data::Dumper 来捕获每个元素中的唯一编号。

这是输出。

如何删除每个唯一数字的标题名称以获得这种格式的输出？

我想将这两个函数结合起来得到香农多样性指数。

怎么办？

第一个函数是使用 Data::Dumper 来获取唯一编号。

这是输出

然后我可以将它输入到第二个函数中。

第二个函数Statistics::Diversity::Shannon用于获取香农多样性指数。

如何通过使用原始数据集 (AAAABBBCD) 将这两个函数组合成一个完整的循环来获得香农多样性指数。

在 Windows 10 x64 上使用 Perl v5.22.1。我已经设定

此代码（基于@Jeef在此问题中接受的答案）是解析文件的 while 循环的一部分。它默默地退出：

如果我像这样改变它

它不会静默退出（也很好奇为什么静默退出而不是未定义引用上的错误），但不能按预期工作。每个 $hvacstring 都会被添加到 %hvac_codes 哈希中，即使它们已被添加。（由印刷品证明）

我想看看哈希是如何结束的，以确定是否每个代码都被视为未定义，因为测试是错误的，或者对哈希的分配不起作用。我尝试了自卸车两种方式：

和（基于这个问题的答案）

Global symbol "%hvac_codes" requires explicit package name在这两种情况下，即使my %hvac_codes; 存在，转储程序线也会因错误而失败。现在我已经把它注释掉了。

I have been using syntax like the following for months, without triggering a warning:

That is, I have used sprintf with Dumper, without specifying a format.

In the following code, we see that this works fine, but only up to a point. When %oprAtnNOW contains a long string, a warning is triggered. (In all cases the string compiles as a regex; but before compilation, it is nothing but a string.)

What causes the warning with the long string? Why is there a "missing argument"? Granted, sprintf is supposed to be given a format, as in https://perldoc.perl.org/functions/sprintf. But why is this only enforced when a smaller string is replaced by a long string?

The output: