perl html http标头
时间: 2024-05-13 09:07:50 浏览: 11
在 Perl 中,你可以使用 LWP::UserAgent 模块来发送 HTTP 请求。下面是一个例子:
```perl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response = $ua->get('https://www.example.com/');
print $response->header('Content-Type');
```
在这个例子中,我们使用 LWP::UserAgent 模块创建了一个用户代理对象 $ua。然后,我们使用 $ua 对象发送了一个 GET 请求到 https://www.example.com/。最后,我们打印了响应的 Content-Type 头信息,使用 $response->header('Content-Type') 方法获取。
如果你想在 HTTP 请求中设置头信息,你可以使用 $ua->default_header 方法。例如:
```perl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->default_header('User-Agent' => 'Mozilla/5.0');
$ua->default_header('Accept-Language' => 'en-US');
my $response = $ua->get('https://www.example.com/');
```
在这个例子中,我们使用 $ua->default_header 方法设置了 User-Agent 和 Accept-Language 头信息。这些头信息会在每个请求中发送。