我正在使用perl在url上执行get请求,结果似乎被截断了.
如果我跑
curl myurl | wc -l
结果是1823,如果我创建以下文件foo.pl：
#!/usr/bin/perl my $url = 'myurl'; use LWP::Simple; my $content = get $url; die "Couldn't get $url" unless defined $content; print $content;
并运行
./foo.pl | wc -l
结果从1300左右到偶尔1823.手动检查输出显示使用perl时输出中断.
是什么导致这个？
解决方法
如果你关闭缓冲会怎么样？我也同意Karsten S.检查http标头的错误代码.最后,我还尝试将内容存储到数组中,看看会发生什么.
要关闭缓冲,您可以简单地放置$|在使用语句之后的脚本顶部.再次,在黑暗中拍摄.
要检查http标头,可以使用CGI.这是一个小网站,提供了一个很好的示例,说明如何从请求中获取标头：
http://www.velocityreviews.com/forums/t24118-re-lwp-simple-header-information-problems.html
最后,尝试使用数组@contents来存储来自Web服务器而不是标量$contents的内容.我曾经有过一段时间从Perl误解为列表的远程服务器传递的东西.我不确定LWP :: Simple是否会占用这些时间,但尝试不会有什么坏处.您可能只获得一部分数据,其余部分要么被覆盖,要么被忽略.将数据放入数组可以帮助确定是否发生了这种情况.