问题标签 [bless]

我知道 perl bless 可以接受 1 或 2 个 arg，如perlbless中所述。但是，我不明白下面代码中的胖逗号是做什么的？是一样的bless \$value,$class;吗？

我正在使用 RPC::XML 并使用以下代码和请求 xml 解析请求 xml。

请求 xml：

我得到了对象数据：

在我完成print Dumper($parse_data->args);并获得以下 args 对象数据后：

祝福（{

现在如何从这个 args 对象数据中获取值？请帮忙！

正如许多 Perl 开发人员所知，unbless用于从对象中删除祝福。
我试图通过调查它的实现来了解它是如何在内部工作的。
我试图在它的包Data::Structure::Util中检查它的实现。这是来源：

我在哪里可以找到unbless_xs子实现/源？

不祝福Perl 对象意味着有一个可怕的设计吗？
如果是，任何人都可以向我解释一下吗？
顺便说一句，这是引发此问题的讨论，请查看对该问题的评论

我有一个 Json 结构，例如：

我用的是perl的Json模块，我可以祝福返回给我的Json变成一个类，比如： my $result = bless($json->{output},'MyClass')

到目前为止一切顺利 - 现在我可以在 MyClass.pm 中创建方法来返回 field1、field2 等的值。所以似乎通过 bless，我可以直接访问设置对象的属性。但危险是我也可以在代码的后面做一些事情，比如： $result->{field1} = "anythingIwant";

......这不太好。我知道我可以将属性设置_field1为表示隐私，但这并不妨碍我这样做$result->{_field1} = "anythingIwant";

那么 perl 中是否有最佳实践方法来处理这种情况？换句话说，能够bless Json输出成一个类进行反序列化是超级方便的，但也显得很危险。我正在寻找两全其美的方法，我仍然可以使用 bless 但也可以防止任何客户端代码执行上述anythingIwant 场景。我已经研究过 Moose、InsideOut 等，但我不确定其中任何一个是否符合要求或只是引入更多复杂性。

我正在使用双启动系统并使用以下 applescript 设置启动音量：

由于 El Capitan 脚本将不再工作，我在脚本编辑器中收到以下错误消息：

bless 命令是否有一些新的变化？

谢谢你的帮助。

如何在 Bless 十六进制编辑器中将偏移默认值从十六进制更改为十进制？我已经尝试了所有设置，但没有！

这是当前的方法：

此方法基本上返回一个错误字符串，但我想对其进行修改，以便它也能够采用我的新错误结构并从错误哈希中返回字符串。我无法理解如何使用祝福。%params 接受运行时参数，但我认为现在可以忽略它们。

这是错误结构：

我刚开始写一些代码来启动，这是一个糟糕的尝试，但这就是我开始修改 new() 方法的方式：

我对 bless 的理解是它使哈希引用成为对象。错误保存在常量列表中。这是如何执行的示例：

更新：我一直在尝试对您的解决方案 @simbabque 进行单元测试，但我不断得到一个空字符串作为返回值，而不是错误消息字符串。也许这是我的测试，它没有正确设置？下面是我创建的测试示例：

我有一个 Perl 脚本，它从 SQL 数据库（$row 变量）中提取一个表并尝试像这样进行 MongoDB 更新：

我的客户现在希望将 ICS 样式的日历邀请发送给他们的调解员。因此，我需要知道是否发生了更新或插入。MongoDB::UpdateResult 的文档暗示这是您访问此类属性的方式：

所以我尝试了：

在这段代码之后 $id 是这样的：

这些是真实的ID吗？如果是这样，我如何转换为可以转换为 Mongo 的 ObjectId 类型的十六进制字符串？应该注意的是，我对 perl 一无所知；如果更多的代码是相关的，我会尽快发布任何部分。它有 300 行，所以我不想立即包含整个文件。

编辑：我应该在任何人建议之前提到使用 update_one 而不是 update 返回完全相同的结果。

不知道bless operator的工作原理是什么？它如何将给定的引用与类相关联。它返回引用。

因为我们可以使用它返回的引用和传递的引用来调用方法。在这个函数中是对象。我想知道“祝福”这个词的含义。