linux – Perl / curl如何获取状态代码和响应正文

发布时间：2020-12-13 19:10:57 所属栏目：Linux 来源：网络整理

导读：我正在尝试编写一个简单的perl脚本调用和API,如果状态代码是2xx,则对响应做一些事情.如果它是4xx或5xx,那么做其他事情. 我遇到的问题是我能够获得响应代码(使用自定义写出格式化程序并将输出传递到其他地方)或者我可以得到整个响应和标题. my $curlResponseC

我正在尝试编写一个简单的perl脚本调用和API,如果状态代码是2xx,则对响应做一些事情.如果它是4xx或5xx,那么做其他事情.

我遇到的问题是我能够获得响应代码(使用自定义写出格式化程序并将输出传递到其他地方)或者我可以得到整个响应和标题.

my $curlResponseCode = `curl -s -o /dev/null -w "%{http_code}" ....`;

只会给我状态代码.

my $curlResponse = `curl -si ...`;

会给我整个标题加上回复.

我的问题是如何从服务器获取响应主体和http状态代码以一种简洁的格式,允许我将它们分成两个独立的变量.

不幸的是,我不能使用LWP或任何其他单独的库.

提前致谢.
-Spencer

最佳答案

…Will give me the entire header plus the response.

…in a neat format that allows me to separate them into two separate variables.

由于标题和正文仅由空行分隔,因此您可以拆分此行上的内容：

 my ($head,$body) = split( m{r?nr?n},`curl -si http://example.com `,2 );

并从标题中获取状态代码

 my ($code) = $head =~m{AS+ (d+)};

您也可以将它组合成一个带有正则表达式的表达式,尽管这可能更难理解：

my ($code,$body) = `curl -si http://example.com` 
      =~m{AS+ (d+) .*?r?nr?n(.*)}s;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!