问题标签 [data-dumper]

我正在使用 Data::Dumper 和 Data::Dumper::Simple（DD 和 DDS）以脚本的详细模式打印哈希，我希望能够与可能没有安装这些模块的其他人共享它，所以我正在检查它们是否已加载。

在不检查模块是否成功加载的情况下，我将如何加载和使用它们的 MWE 是：

哪个打印：

使用此处描述的方法首先检查模块是否已加载，如果是，则仅使用 Dumper 方法，我将代码重写为：

我的输出现在是：

现在散列转储不显示变量名称testHash，好像 DDS 没有加载。但是，我的脚本并没有抱怨它无法加载 DDS。我可以通过注释掉来在我的第一个 MWE 中复制它use Data::Dumper::Simple;。

我的问题：为什么我的脚本的第二个版本，检查模块加载，只打印 DD，而不是加载 DDS？

额外的问题：在这样的条件模块加载场景中设置 SortKeys 的正确方法是什么？

谢谢。

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

这是文件中散列的基本结构。

我正在尝试从我的输出中获取 csv 文件。

输出：

这个脚本应该在控制台中给我我的 wiched 元素（ipadress 和名称），但它不起作用

最后，我需要一个包含设备名称和 IP 地址的 csv 文件。

现在我只使用两种方法：Name和NetworkDeviceIPList（只是为了清理我的输出信息）。不幸的 Net::Cisco::ISE是，没有办法只IPs获得ips。我可以打电话NetworkDeviceIPList得到：

我有这个输出：

但我现在不知道如何从这个输出 csv 数据中获取名称和 ips 数组。

我需要将我的文本文件（我的输出）解析为 csv 格式，其中仅包含来自设备的名称和 Ips。像：

我没有在 perl 中解析的经验，也许有人可以帮助我解决这个问题。

我有这个输出：

我试过这个脚本（来自这篇文章），但我没有看到输出，也没有错误：

问题：

我正在尝试打印$self对象以了解包含的数据结构，如下行并得到错误：

错误：

版本信息：

我无法更新 perl 版本，我尝试Data::Dumper使用cpan install Data::Dumper;.

安装后显示/usr/bin/make test -- OK。

但是当我再次检查时，版本保持不变。

那么有什么办法可以解决这个问题吗？

或者我可以使用其他方式打印所需的对象？

我的perl代码：

我的 JSON 数据：

意外输出：

我编写了一些 perl 脚本来解析单行 JSON 数据。但我得到了关于“m”的意外输出。怎么了？

即使在阅读 Perl 文档并查看 git 中的其他脚本之后，我也不明白如何使用 Data::Dumper。我在网上看到很多处理哈希的例子，但我认为这不太适合我需要做的事情。

我正在创建一个脚本，用于向经理或团队发送有关解雇员工的电子邮件。我被告知要添加print Dumper $email到我的代码中，以便在使用 --dry_run 选项时，我们可以在终端上看到电子邮件的打印输出。--dry_run 还可以确保电子邮件没有实际发送。当我跑步时perl <script> --dry_run，什么也没有发生。也许我需要做一些类似的事情$d = Data::Dumper->new(？

这是我的代码片段：

对于理解如何将其用于我的目的的任何帮助将不胜感激。谢谢你。

我正在做一个项目，我需要从用户那里获取输入，然后将其切割成单独的字符以供以后使用（将它们向上移动一个字符），但是我无法将输入输入到数组和将其打印出来以检查其是否在其中。目前我的代码是

如果他们的输入是“房子”，我的输出应该看起来像这样

但是，当我确实在其中输入某些内容时，尽管有严格的警告并且没有返回任何内容，但它只是打印出一个空白屏幕。我哪里做错了？

我在结构中有一些 UTF-8 编码的字符串，出于调试目的，我使用Data::Dumper转储这些字符串。

一个小测试用例是：

它输出

但我想看看

当然，我的结构要复杂得多。调试时如何使转储结构中的字符串可读？也许我之前必须通过chr某种方式处理输出warn/say？

perl version 5.18

我在使用 perl JSON 编码器时遇到问题，并在浮点数周围加上引号。

见示例代码：

输出：

正如您在使用 Dumper 后看到的，JSON 编码器添加了引号。任何想法为什么会发生这种情况？

不是在上面的示例代码中，而是在生产中，除非我添加 .01，否则我无法删除引号。即使 *= *1 也不起作用。