linux – Perlcurl如何获取状态代码和响应正文

概述我正在尝试编写一个简单的perl脚本调用和API,如果状态代码是2xx,则对响应做一些事情.如果它是4xx或5xx,那么做其他事情. 我遇到的问题是我能够获得响应代码(使用自定义写出格式化程序并将输出传递到其他地方)或者我可以得到整个响应和标题. my $curlResponseCode = `curl -s -o /dev/null -w "%{http_code}" ....`; 只会给我状态 我正在尝试编写一个简单的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?\n\r?\n},`curl -si http://example.com `,2 );

并从标题中获取状态代码

my ($code) = $head =~m{\A\S+ (\d+)};

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

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

总结

以上是内存溢出为你收集整理的linux – Perl / curl如何获取状态代码和响应正文全部内容，希望文章能够帮你解决linux – Perl / curl如何获取状态代码和响应正文所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。