web-dev-qa-db-ja.com

PerlでHTTP GETリクエストを行う最も簡単な方法は何ですか？

PHPで記述したいくつかのコードがあります。PHP$ ===は、その言語を好むユーザー向けにPerlで提供したい単純なWebサービスです。それを行うためのHTTPリクエスト？PHP私はfile_get_contents()で1行でそれを行うことができます。

Perlに移植したいコード全体を次に示します。

/**
 * Makes a remote call to the our API, and returns the response
 * @param cmd {string} - command string ID
 * @param argsArray {array} - associative array of argument names and argument values
 * @return {array} - array of responses
 */
function callAPI( $cmd, $argsArray=array() )
{
   $apikey="MY_API_KEY";
   $secret="MY_SECRET";
   $apiurl="https://foobar.com/api";

   // timestamp this API was submitted (for security reasons)
   $Epoch_time=time();

   //--- assemble argument array into string
   $query = "cmd=" .$cmd;
   foreach ($argsArray as $argName => $argValue) {
       $query .= "&" . $argName . "=" . urlencode($argValue);
   }
   $query .= "&key=". $apikey . "&time=" . $Epoch_time;

   //--- make md5 hash of the query + secret string
   $md5 = md5($query . $secret);
   $url = $apiurl . "?" . $query . "&md5=" . $md5;

   //--- make simple HTTP GET request, put the server response into $response
   $response = file_get_contents($url);

   //--- convert "|" (pipe) delimited string to array
   $responseArray = explode("|", $response);
   return $responseArray;
}
perlweb-serviceshttp
35
davr

LWP :: Simple：

use LWP::Simple;
$contents = get("http://YOUR_URL_HERE");
65
Kevin Crumley

LWP :: Simpleには、探している機能があります。

use LWP::Simple;
$content = get($url);
die "Can't GET $url" if (! defined $content);
16
Barry Brown

LWP :: Simple を見てください。より複雑なクエリについては、 それに関する本 もあります。

6
bmdhacks

LWP :: Simple モジュールを使用します。

4
AndrewJFord

Mojo :: UserAgent も素晴らしいオプションです！

  use Mojo::UserAgent;
  my $ua = Mojo::UserAgent->new;

  # Say hello to the Unicode snowman with "Do Not Track" header
  say $ua->get('www.☃.net?hello=there' => {DNT => 1})->res->body;

  # Form POST with exception handling
  my $tx = $ua->post('https://metacpan.org/search' => form => {q => 'mojo'});
  if (my $res = $tx->success) { say $res->body }
  else {
    my ($err, $code) = $tx->error;
    say $code ? "$code response: $err" : "Connection error: $err";
  }

  # Quick JSON API request with Basic authentication
  say $ua->get('https://sri:[email protected]/search.json?q=Perl')
    ->res->json('/results/0/title');

  # Extract data from HTML and XML resources
  say $ua->get('www.Perl.org')->res->dom->html->head->title->text;`

CPANページから直接サンプル。私は自分のマシンでLWP :: Simpleを動作させることができなかったときにこれを使用しました。

3
Dave Horner

HTTP :: Request モジュールを試してください。このクラスのインスタンスは通常、LWP :: UserAgentオブジェクトのrequest（）メソッドに渡されます。

1
coppro

Srihariが参照しているもの は Wget ですが、実際には（LWP :: Simpleなしの* nixで） cURL を使用することをお勧めします=：

$ my $content = `curl -s "http://google.com"`;
<HTML><HEAD><meta http-equiv="content-type" content="text/html;charset=utf-8">
<TITLE>301 Moved</TITLE></HEAD><BODY>
<H1>301 Moved</H1>
The document has moved
<A HREF="http://www.google.com/">here</A>.
</BODY></HTML>

-sフラグは、curlがサイレントであることを示します。それ以外の場合は、標準エラーで毎回curlのプログレスバー出力を取得します。

0
tboz203

UnixでLWP :: Simpleがインストールされていない場合は、次を試すことができます。

my $content = `GET "http://trackMyPhones.com/"`;
0
Srihari Karanth