0

我目前正在与 USGS 的 EarthExplorer 合作，根据空间坐标设置一些 Landsat 场景的批量下载。他们在https://earthexplorer.usgs.gov/inventory/example/json-download_data-pl提供了一个很棒的方便的脚本来执行此操作，这很棒。我正在处理集群，尽管正确安装了所有 perl 模块，但当我运行脚本时，我得到以下输出：

Running Script...


Error: Error: malformed JSON string, neither array, object, number, string or 
atom, at character offset 0 (before "LWP will support htt...") at ./dl.pl line 182

这似乎很好奇。作为解释，脚本以

#!/usr/bin/perl

#use strict;
use warnings;
use 5.010;
use JSON;
use Scalar::Util qw(looks_like_number reftype dualvar );
use LWP::UserAgent;
use Getopt::Long qw(GetOptions);

my ($username, $password);
$username = "myusername_filled_in";
$password = "mypassword_filled_in";

GetOptions(
    'username=s' => \$username,
    'password=s' => \$password,
) or die "Error retrieving Username and Password\n";

有问题的代码是

    $res = $response->{_content};
    $res = decode_json $res;

根据Can't run Perl script on other computer中非常有用的建议，我完成了以下操作：

  1. 更改$response->content为$response->decoded_content( charset => 'none')代码的违规区域。

  2. Ranlwp-request https://google.com/刚刚拉回了一个完整的网页 - 没有错误。所以，这似乎奏效了。

  3. 试图通过插入来查看一些调试print $response->decoded_content( charset => 'none');，然后抛出错误

LWP will support https URLs if the LWP::Protocol::https module is installed.

而且，确实安装了 LWP::Protocol::https。

我觉得我必须缺少一些简单的东西——比如我如何定义我的用户名和密码（$username = "myusername";等等，在声明变量之后）或其他一些愚蠢的东西。

有没有其他人遇到过这个？

要添加以下查询的输出：

$ which cpan ; head -n 1 `which cpan` ; echo 'o conf' | cpan | grep -P 'make|mbuild' ; set | grep ^PERL ; which perl ; perl -le'use LWP::Protocol::https; print "ok";'

/share/pkg/perl/5.10.1/bin/cpan
#!/share/pkg/perl/5.10.1/bin/perl
    make               [/usr/bin/make]
    make_arg           []
    make_install_arg   []
    make_install_make_command [/usr/bin/make]
    makepl_arg         []
    mbuild_arg         []
    mbuild_install_arg []
    mbuild_install_build_command [./Build]
    mbuildpl_arg       []
PERL5LIB=/home/jb92b/perl5/lib/perl5:/home/jb92b/perl5/lib/perl5:/home/jb92b/perl5/lib/perl5
PERL_LOCAL_LIB_ROOT=/home/jb92b/perl5:/home/jb92b/perl5:/home/jb92b/perl5
PERL_MB_OPT='--install_base "/home/jb92b/perl5"'
PERL_MM_OPT=INSTALL_BASE=/home/jb92b/perl5
/share/pkg/perl/5.10.1/bin/perl
ok
4

2 回答 2

1

您的代码不会检查错误。你应该有类似的东西

$response->is_success()
   or die("Can't fetch X: ".$response->status_line());

您遇到的问题是未安装 LWP::Protocol::https。

你声称它是，但 Perl 在这里是权威的 :) 它不是由那个 Perl 安装的，你将它安装在一个非标准目录中而没有告诉 Perl 在那里寻找它，或者存在权限问题。

在这种情况下，您的脚本使用/usr/bin/perl，但您使用 /for 安装了模块/share/pkg/perl/5.10.1/bin/perl。您需要切换perl脚本使用哪个，或者您需要使用 /for 安装模块/usr/bin/perl。

于 2017-09-13T18:59:23.777 回答
0

“类似于我如何定义我的用户名和密码（ $username = "myusername"; 等等，在声明变量之后）”

您不应该修改代码来添加您的用户名和密码。它的编写方式，调用GetOptions将覆盖它们。你应该使用

program.pl --usernam myusername --password mypassword
于 2017-09-13T19:09:52.673 回答