替换反斜杠

我的下一段代码替换反斜杠

sub raw_query { 

    my ($self,%args) = @_; 

    state $global_id = int(rand(10000)); 


    $args{'jsonrpc'} = '2.0'; 
    if ($self->cookie) { $args{'auth'} = $self->cookie; } 
    $args{'id'} = $global_id++; 


    if ($self->{verbosity} == 1) { 
     print Dumper(\%args); 
    } 
    %args=quotemeta %args; 
    for (my $i=0; $i< $self->{retries}; $i++){ 
     my $response = eval { $self->{ua}->post($self->{server}, 
               'Content-Type' => 'application/json-rpc', 
               'Content' => JSON->new->escape_slash->utf8->encode(\%args)) };

返回我回斜线一些值，从而JSON编码失败：

\{ 
               'main' => '1', 
               'hostid' => '1', 
               'useip' => '1', 
               'type' => '2', 
               'bulk' => '1', 
               'interfaceid' => '1', 
               'ip' => '1.2.8.4', 
               'port' => '1', 
               'dns' => 'test' 
              }

能否请你帮替换此backslah：从\ {到{？

来源

2017-04-06 user54

'％args = quotemeta％args'是非常错误的，你会看到警告'散列分配中奇数个元素。请不要忽视警告。目标并不明显，但由于您无法直接修改哈希键，我猜测您可能想要在哈希*值*中转义非单词字符。这就像'$ _ = quotemeta值％args'一样。但是你确定你想要HTTP消息体中的转义字符吗？ – Borodin

您是如何生成该输出的？你应该在你的问题中显示产生它的代码。 – Borodin

我的问题不是原始源代码，而是源代码在此代码中使用的Perl模块的源代码。一旦我纠正它 - 一切都解决了。感谢大家的帮助！

来源

2017-04-07 18:56:39 user54

我怀疑你通过你的论点的方法作为散列引用

$self->raw_query({ a => 'b', c => 'd' });

或许

my %args = (a => 'b', c => 'd'); 

$self->raw_query(\%args);

这应该是

$self->raw_query(a => 'b', c => 'd');

或

$self->raw_query(%args);

来源

2017-04-06 16:51:11 Borodin

回答

相关问题