有没有办法在纯 perl 中获取网页？

Question

我正在一台旧的、过时的嵌入式 ARM 计算机上进行开发，并且没有可用于 HTTP 客户端支持的模块。没有 LWP，没有 HTTP::Tiny 等。

我无法为这个平台编译任何东西。原来的开发者早已离开公司，这个项目目前处于维护模式。

有什么方法可以让我使用纯 perl 获取 HTTP 页面，最好是 HTTPS 页面？我可以将任何模块复制到库树中（不支持 CPAN...）？

谢谢。

编辑：perl 解决方案失败我想我可以退回到从 perl 脚本运行 wget 或 curl ——但是内存非常有限，所以我想尽可能避免这种情况。

Answer 1

您可以在没有库的情况下进行普通的套接字编程。 Perl 支持大多数 POSIX/c 库来做到这一点。根据您有多少可用的标准库，您的解决方案会有所不同。如果你有像 IO::Socket::INET 这样的普通套接字，我会推荐 HTTP::Tiny，比如 @ThisSuitIsBlackNot。

这是一个仅使用 Socket 的程序，如果您需要实现自己的 HTTP 客户端，它应该可以帮助您入门。

use strict;
use warnings;
use Socket qw(PF_INET SOCK_STREAM pack_sockaddr_in inet_aton);

socket(my $socket, PF_INET, SOCK_STREAM, 0) or die "socket: $!";
my $port = getservbyname "http", "tcp";
connect($socket, pack_sockaddr_in($port, inet_aton("www.google.com"))) or die "connect: $!";

send($socket, "GET / HTTP/1.0\r\n", 0);
send($socket, "Host: www.google.com\r\n", 0);
send($socket, "User-Agent: pureperl\r\n\r\n", 0);

while (my $line = <$socket>)
{
    print $line;
}

如果您也没有 Socket，则需要手动获取 PF_INET、SOCK_STREAM 和这两个函数的值。

如果你有 IO::Socket 最好使用它：

use strict;
use warnings;    
use IO::Socket;
$sock = IO::Socket::INET->new(PeerAddr => 'www.google.com',
                              PeerPort => 'http(80)',
                              Proto    => 'tcp');
$sock->send("GET / HTTP/1.0\r\n");
$sock->send("Host: www.google.com\r\n");
$sock->send("User-Agent: pureperl\r\n");
$sock->send("\r\n");

while (my $line = <$sock>)
{
    print $line;
}

但是如果你有 IO::Socket，那么如果你只是复制它，那么 HTTP::Tiny 中的 Tiny.pm 应该会加载。

我不建议尝试在纯 perl 中解决 HTTPS，或者从您自己的实现开始。

Answer 2

perl 解决方案失败我想我可以退回到从 perl 脚本运行 wget 或 curl ——但内存非常有限，所以我想尽可能避免这种情况。

这毫无意义，curl 使用的内存比 LWP 少。

加载 LWP 在我的机器上使用了将近 3,000 KiB。 curl 的图片大小只有 125 KiB。

使用curl。