Question

我有这段代码：

  request({
    uri: 'https://graph.facebook.com/v2.6/me/messages',
    qs: { access_token: PAGE_ACCESS_TOKEN },
    method: 'POST',
    json: messageData
  })

我想把它转换成Perl，到目前为止我是：

my $req = HTTP::Request->new( 'POST', 'https://graph.facebook.com/v2.6/me/messages');
$req->header( 'Content-Type' => 'application/json' );
$req->content( $messageData );

我不确定如何将以下行合并到我的Perl代码中：

qs: { access_token: PAGE_ACCESS_TOKEN },

它指定要添加到URL的查询参数。

我试图搜索网络，但大多数示例要么发送json内容，要么发送查询字符串，但不是两者都发送。如果我对JavaScript代码的解释是正确的，我需要能够发送两者的东西。

提前感谢任何指导我的人。

Answer 1

您可以使用URI模块（可能由URI::QueryParam模块补充）来构建（和操作）URL。

var isMobile;

    if( /Android|webOS|iPhone|iPad|iPod|BlackBerry|IEMobile|Opera Mini/i.test(navigator.userAgent) )
    {
      isMobile = true;
    }
    else
    {
      isMobile = false;
    }



 Then in the CPM.js find:
    cp.shouldScale = cp.D.project.shc;
    and replace with:

    if(isMobile)
    {
       cp.shouldScale = cp.D.project.shc;
    }
      else
    {
       cp.shouldScale = false;
    }

Perl等效的JavaScript代码示例

1 个答案: