1

最近，我发现了 plot.ly 网站并正在尝试使用它。但是，当我使用 Perl API 时，我无法成功。我的步骤与下面相同。

  1. 我用谷歌账户注册了 plot.ly
  2. 安装 Perl 模块(WebService::Plotly)
  3. 键入基本示例（“ https://plot.ly/api/perl/docs/line-scatter ”）

..跳过..

use WebService::Plotly;
use v5.10;
use utf8;

my $user = "MYID";
my $key = "MYKEY";

my $py= WebService::Plotly->new( un => $user, key => $key );

say __LINE__; # first say

my $x0 = [1,2,3,4]; 
my $y0 = [10,15,13,17];
my $x1 = [2,3,4,5]; 
my $y1 = [16,5,11,9];

my $response = $py->plot($x0, $y0, $x1, $y1);
say __LINE__ ; # second say

..跳过...

然后，执行示例 perl 代码 =>> 但是，在这一步中，$py->plot 总是返回“HTTP::Response=HASH(0x7fd1a4236918)”并且第二个说没有执行（我使用了 Perl 版本 5.16.2 和 5.19。 1、操作系统是MacOS X)

在手上，python 示例（“ https://plot.ly/api/python/docs/line-scatter ”）总是成功的。

请让我知道这个问题。非常感谢！

4

2 回答 2

0

您是否查看过 $py->content 或 HTTP::Response 对象的任何其他属性？

除了您尝试打印对象引用的值之外，您没有告诉我们任何其他信息，您从中提供的输出是人们期望的输出。

于 2013-12-23T15:59:00.773 回答
0

在快速查看该模块的源代码后，我可以建议像下面的示例一样使用它。因为任何方法都可能引发异常。在 http 错误时，这将是 HTTP::Response 对象

eval {
    my $response = $py->plot($x0, $y0, $x1, $y1);
};
if (my $err = $@) {
    if (!ref $err) {
        die "Plotly error: ", $err;
    }
    elsif ($err->isa('HTTP::Response')) {
        die "HTTP error: ", $err->status_line;
    }
    else {
        die "Unknown error: ", ref($err), " ($err)"
    }
}
于 2013-12-23T16:09:39.503 回答