perl の変数への curl 呼び出しの応答を取得しようとしています。
my $foo = `curl yadd yadda`;
print $foo;
動作しません。これをコマンド ラインで実行すると、curl 呼び出しによってすべての出力がターミナルに正しく出力されますが、変数にはそのデータが入力されません。
Perl curl lib をインストールして呼び出さずにこれを行う方法はありますか?
おそらくstderrに送信されます。試す
my $foo = `curl yadd yadda 2>&1`;
LWP::UserAgentやLWP::Simpleを検討することもできます。
本当にやりたいことは何ですか?どうしても使用curl
しますか、それとも Web ページのコンテンツを取得しますか?
これを行うためのより危険な方法 (これを行う必要がある次のマシンにインストールされているかどうかに関係なく、外部プログラムに依存しない方法) は次のようになります。
use LWP::Simple;
my $content = get("http://stackoverflow.com/questions/1015438/")
or die "no such luck\n";
GET が失敗した理由を知りたい場合、または同じサイトから複数のページを取得したい場合は、もう少し機械を使用する必要があります。perldoc lwpcook
始めましょう。
シェルでは、2>
ファイル番号 2 をリダイレクトすることを意味します。ファイル番号 2 は常に、プログラムが stderr として認識するものです。同様に、fileno 0 は stdin で、fileno 1 は stdout です。つまり、2>&1
stderr (fileno 2) を stdout (fileno 1) にリダイレクトするようにシェルに指示しているとします。バッククォート演算子はシェルを使用して指定したコマンドを実行するため、シェル リダイレクトを使用できます。
my $foo = `curl yadda yadda 2>&1`;
出力を stdout にリダイレクトするように curl に指示しています。バックティック演算子が stdout をキャッチするため、探していたものが得られます。
これを試して:
$var = `curl "http://localhost" 2>/dev/null`;
print length($var)
curl
stderr に進捗情報を表示し、それを /dev/null にリダイレクトすると、何が起こっているかを簡単に確認できます。
これは私のシステムで動作します:
#!/usr/bin/perl
use strict;
use warnings;
my $output = `curl www.unur.com`;
print $output;
__END__
C:\> z1
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd"><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
等
パイプをファイルのように開くことができます。
$url = "\"http://download.finance.yahoo.com/d/quotes.csv?s=" .
"$symbol&f=sl1d1t1c1ohgvper&e=.csv\"";
open CURL, "curl -s $url |" or die "single_stock_quote: Can't open curl $!\n";
$line = <CURL>;
close CURL;
キャプチャしたい出力の一部が、標準出力ではなく標準エラーにある可能性があります。これを試して:
my $foo = system "curl http://www.stackoverflow.com";
print $foo;