为什么下面的代码中缺少哈希值

Question

我想向 jira 和 jfrog 发出 POST 请求。当我尝试获取循环内的哈希值时，我无法第二次获取该值。我尝试从 env 中读取变量（API 令牌而不是密码），如果未设置它将传递用户名和密码。

my %urls = (
    'jira' => {
        'url' => 'https://jira.com:123/rest/api/2/issue/', 
        'token' => 'JIRA_TOKEN'
    },
    'jfrog' => {
        'url' => 'https://jfrog.com/artifactory/api/storage/path/to/artifacts',
        'token' => 'JFROG_TOKEN'
    }
);

my $jira_ua = Mojo::UserAgent->new();
for my $outer_elem ( keys %urls ) {
    for my $inner_elem ( keys %{$urls{$outer_elem}} ) {
        # print $inner_elem;
        if ( !$ENV{$urls{$outer_elem}{'token'}} ) {
            print "Enter username : \n";
            my $username = <STDIN>;
            chomp($username);
            my $passwd = read_password("Enter Password: ");
            $url = Mojo::URL->new($urls{$outer_elem}->{'url'})
            ->userinfo($username.':'.$passwd);
        }
        else {
            if ( $inner_elem eq "jira" ) {
                $tx->req->headers->authorization (
          "Bearer $ENV{$urls{$outer_elem}->{'token'}}"
               );
                $url = Mojo::URL->new($urls{$outer_elem}->{'url'})
            }
        }
        print $outer_elem . "\n";
        print "logging in to $urls{$outer_elem}->{'url'}\n";
        $tx = my $ua->get($url); # <--- line 170
        my $res = $tx->res->code;
        print $res;
        last;
    }
}

我低于输出

D:\scripts>perl emtf.pl
jira
Can't call method "get" on an undefined value at emtf.pl line 170.

Answer 1

您收到的错误是：

Can't call method "get" on an undefined value

而产生错误的代码行是：

$tx = my $ua->get($urls{$outer_elem}->{'url'});

该错误意味着当您尝试对其调用 get() 方法时，$ua 包含 undef。那是因为您在这行代码中创建了一个名为 $ua 的新变量 - 这就是 my 所做的。因为你没有给这个新变量赋值，它会包含 undef.

我不确定为什么 my 在那里。而且我不确定我是否真的理解您的代码应该如何工作。还有另一个名为 $ua 的变量已定义但未在上面几行定义的匿名子例程中使用 (my( $ua, $tx ) = @_;)，但该变量在该子例程之外不存在。

你是不是，也许是指使用 $jira_ua 代替的行：

$tx = $jira_ua->get($urls{$outer_elem}->{'url'});

为什么下面的代码中缺少哈希值

why is the hash value missing in the below code

perl

hash

mojo-useragent