0

我有一个$artifact使用 Data::Dumper 打印的 Perl 哈希引用。

的输出print Dumper ($artifact);返回以下内容。

$VAR1 = bless( {
             '_content' => '{
  "results" : [ {
"uri" : "http://localhost:port/myfile.tar"
   } ]
}',);

但是，我在尝试专门访问 URI 的值时遇到了麻烦，即我想检查是否uri有值。

谢谢！

编辑：只是一些上下文。我正在使用 Artifactory::Client perl 模块中的“artifact_search”方法

4

3 回答 3

6

要从哈希引用中提取信息，首先需要取消引用。您可以：

print ${$artifact}{uri},"\n";

在这种特定情况下，您可以省略大括号并执行以下操作：

print $$artifact{uri},"\n";

但请注意，这可能是模棱两可的，因此符号样式并不总是适用于取消引用。

或者更新的，可能更清晰的符号（例如面向对象）

print $artifact->{uri},"\n";

然而，这里有一个很大的警钟bless——这意味着你可能正在操纵一个物体。在物体内部戳是非常脏的。你永远不应该这样做。通常，该对象将包含一个访问器方法来为您提供所需的信息。按照惯例，_前缀表示private例如“不要乱用这个”。（反正你不应该）

如评论中所述 - 这是嵌入在您的对象中的 JSON 文本字符串。因此，如果您真的打算这样做 - 您可以解析 JSON，将其转换为 perl 数据结构，然后使用它。

但更有可能 - 你正在操作的对象有一些内置的访问器方法，你应该使用它们。

所以给出你上面的例子：

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use JSON;

my $hashref = {
    _content => '{
      "results" : [ {
"uri" : "http://localhost:port/myfile.tar"
   } ]
}'
};

print Dumper \$hashref;

my $json    = JSON->new();
my $json_ob = $json->decode( $hashref->{_content} );
print Dumper \$json_ob;
print $json_ob ->{results}->[0]->{uri};

但是，正如评论中提到的，您正在使用： Artifactory::Client非常明智地使用LWP.

此模块中提供的每个公共方法都返回一个 HTTP::Response 对象。

参考HTTP::Response文档给出了这个示例：

if ($artifact->is_success) {
    print $artifact->decoded_content;
}
else {
    print STDERR $artifact->status_line, "\n";
}
于 2015-02-02T13:37:59.887 回答
2

就 Perl 而言，您的$artifact变量是具有单个键/值对的哈希引用。URI 嵌入在值中，看起来是 JSON。您需要提取值、解析它，然后获取 URI。

JSON 是 YAML 的有效子集，因此您可以使用 YAML 模块对其进行解析。

use YAML::XS;
my $content = $artifact->{_content};
my $yaml    = Load($content);
print $yaml->{results}[0]{uri}; # http://localhost:port/myfile.tar

也就是说，方法/属性名称上的前导下划线通常意味着它们是类的“私有”，不应该在外部使用。窥视 API 的背后（如果不知道数据来自哪里以及属于哪个类，我们就无法知道它$artifact）是脆弱的。

于 2015-02-02T13:56:02.457 回答
0

这不是您从 Dumper 获得的确切输出，是吗？如果 Dumper 输出包含对的调用，bless那么它还应该包含引用被祝福的类的名称。

天真的方法是这样的：

print $artifact->{_content}{results}[0]{uri};

但是考虑到你似乎有一个对象（一个有福的哈希引用），那么几乎肯定会有类上的方法来访问对象的属性。您应该使用这些而不是在对象的内部进行挖掘。

更新：是的，我错过了整个_content密钥是一个 JSON 字符串。对于那个很抱歉 ：-/

于 2015-02-02T13:55:19.327 回答