Я пытаюсь получить ответ на вызов curl в переменной в Perl.
my $foo = `curl yadd yadda`;
print $foo;
не работает. Когда я запускаю это в командной строке, вызов curl правильно печатает все свои выходные данные в терминале, но переменная не заполняется этими данными.
Есть ли способ сделать это без установки и вызова Perl curl lib?
Вероятно, он отправляет свои данные в stderr. Пытаться
my $foo = `curl yadd yadda 2>&1`;
Вы также можете посмотреть на LWP::UserAgent или даже LWP::Simple .
Что вы действительно хотите сделать? Использовать curl любой ценой или захватить содержимое веб-страницы?
Более опасный способ сделать это (который не зависит от внешних программ, которые могут быть установлены или не установлены на следующем компьютере, где вам нужно это сделать):
use LWP::Simple;
my $content = get("http://stackoverflow.com/questions/1015438/")
or die "no such luck\n";
Если вы хотите узнать, почему не удалось выполнить GET, или получить несколько страниц с одного и того же сайта, вам потребуется немного больше механизмов. perldoc lwpcook поможет вам начать.
В оболочке 2> означает перенаправление fileno 2. Fileno 2 всегда является тем, что программа видит как stderr. Точно так же номер файла 0 — это стандартный ввод, а номер файла 1 — стандартный вывод. Итак, когда вы говорите 2>&1, вы говорите оболочке перенаправить stderr (fileno 2) в stdout (fileno 1). Поскольку оператор обратных кавычек использует оболочку для запуска указанной вами команды, вы можете использовать перенаправление оболочки, поэтому
my $foo = `curl yadda yadda 2>&1`;
указывает curl перенаправить свой вывод в стандартный вывод, и, поскольку оператор обратной кавычки перехватывает стандартный вывод, вы получаете то, что искали.
Попробуй это:
$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;
Очень старый пост, но настоящий способ использования curl в обратных апострофах — это использование соответствующего переключателя curl.
Этот ключ -o определяет, куда отправлять выходные данные.
Подробнее с справочной страницы curl:
Указание вывода как «-» (одиночное тире) заставит вывод выполняться на стандартный вывод.
Это также предотвращает возможные ошибки в $foo, которые могут произойти, если вы перенаправите полный STDERR в STDOUT при ошибках:
my $foo = `curl -o - yadd yadda`;
Возможно, часть выходных данных, которые вы хотите захватить, находится в стандартном err, а не в стандартном выходе. Попробуй это:
my $foo = system "curl http://www.stackoverflow.com";
print $foo;
