perl – 使用curl发布Gzip数据

概述即时尝试使用系统curl将gzip压缩数据发布到服务器,但我总是遇到奇怪的错误 `curl -sS -X POST -H "Content-Type: application/gzip" --data-binary $data $url` 给 curl: no URL specified! 和 `curl -sS -X POST -H "Content-Type: application/gzip 即时尝试使用系统curl将Gzip压缩数据发布到服务器,但我总是遇到奇怪的错误

`curl -sS -X POST -H "Content-Type: application/gzip" --data-binary $data $url`

给

curl: no URL specifIEd!

和

`curl -sS -X POST -H "Content-Type: application/gzip" --data-binary "$data" $url`

给

sh: -c: line 0: unexpected EOF while looking for matching `"'sh: -c: line 1: Syntax error: unexpected end of file

解决方法 添加“是朝着正确方向迈出的一步,但您没有考虑$data可能包含”,$等.您可以使用 String::ShellQuote来解决问题.

use String::ShellQuote qw( shell_quote );my $cmd = shell_quote(   curl => (      '-sS','-X' => 'POST','-H' => 'Content-Type: application/gzip','--data-binary' => $data,$url,),);my $output = `$cmd`;

或者你可以完全避开外壳.

my @cmd = (   curl => (      '-sS',);open(my $pipe,'-|',@cmd) or dIE $!;my $output = do { local $/; <$pipe> };close($pipe);

或者,如果您实际上不需要捕获输出,则以下内容也完全避免了shell：

system(   curl => (      '-sS',);

也就是说,我不知道你怎么可能发送包含Nul字节的字符串,这可能是一个Gzip压缩文件.我认为你的做法本质上是有缺陷的.

你知道libcurl(卷曲的胆量)可以通过Net::Curl::Easy访问吗？

总结

以上是内存溢出为你收集整理的perl – 使用curl发布Gzip数据全部内容，希望文章能够帮你解决perl – 使用curl发布Gzip数据所遇到的程序开发问题。

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