写出由perl抓取sta结果的脚本
时间: 2024-03-21 10:37:48 浏览: 13
以下是一个简单的Perl脚本,它可以使用LWP::UserAgent模块抓取STA结果:
```
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
my $url = "http://example.com/api/sta"; # STA接口的URL
my $ua = LWP::UserAgent->new; # 创建LWP::UserAgent对象
my $response = $ua->get($url); # 发送GET请求
if ($response->is_success) { # 判断响应是否成功
print $response->content; # 输出响应内容
} else {
print "Error: " . $response->status_line . "\n"; # 输出错误信息
}
```
说明:
- `LWP::UserAgent` 是Perl的一个网络模块,可以用来发送HTTP请求和处理响应。
- `$url` 是STA接口的URL。
- `$ua = LWP::UserAgent->new` 创建一个LWP::UserAgent对象。
- `$response = $ua->get($url)` 发送GET请求,并返回一个响应对象。
- `$response->is_success` 判断响应是否成功。
- `$response->content` 获取响应内容。
- `$response->status_line` 获取响应状态行。