Можно ли написать простой веб-браузер из командной строки в одной строке Perl?

Question

Некоторое время назад я наткнулся на ссылку, описывающую написание простого сценария Perl для командной строки, который выполнял роль веб-браузера.Шокирующим фактором для демо-сценария было то, что это была всего лишь одна строка Perl.Я не помню, что за ссылка была.

Как бы кто-то это сделал?Или вы знаете ссылку, на которую я ссылаюсь?

Answer 1

Вы можете попробовать современный веб-клиент Perl:

perl -MMojo::Client -e "print Mojo::Client->new->get('http://www.example.com')->res->body;"

По мотивам: http://www.slideshare.net/marcusramberg/mojo-as-aclient

Answer 2

Одна строка Perl? номер

Одна строка Perl и несколько модулей, содержащих больше строк Perl? Да.

Одна строка Perl и куча таких модулей, которые вы можете загрузить с CPAN ? Может быть.

Очень простой HTML-рендерер может выглядеть так:

 perl -Mv5.10 -MLWP::Simple -MHTML::TreeBuilder::XPath -e"say HTML::TreeBuilder::XPath->new->parse(LWP::Simple::get('http://example.com'))->eof->as_text();"

Answer 3

Не знаю, что разумно сказать, что вы могли бы написать веб-браузер в одной строке Perl, хотя вы могли бы написать очень упрощенный HTTP-клиент в одной (длинной) строке Perl.

Использование IO::Socket::INET может показаться обманом, поскольку в его источнике содержится более одной строки, но оно всегда было основным и сохраняет около 5 вызовов функции резака печенья для настройки сокета.1006 * Хотя, честно говоря, одна строка, которую я обычно использовал для простого HTTP-клиента Perl, -

GET http://www.google.com/