如何使用Perl的LWP提取非标准HTTP头？

Question

我正在使用一个Web应用程序,它在响应登录请求时发送一​​些非标准HTTP头.有问题的标题是:

SSO_STATUS: LoginFailed 

我尝试用LWP :: Response提取它,$response->header('SSO_STATUS')但它不起作用.它为标准的头,如工作Set-Cookie,Expires等等.

有没有办法处理原始标题？

Answer 1

如果你看到HTTP :: Headers的文档,它就说明了这一点

标题字段名称拼写通常是规范化的,包括'_'到' - '的翻译.有一些应用,这是不合适的.使用":"前缀字段名称可以强制执行特定拼写.例如,如果您确实希望标题字段名称显示为foo_bar而不是"Foo-Bar",则可以将其设置为:

  $h->header(":foo_bar" => 1);

这些字段名称返回时带有':'完整的for $h->header_field_names和$h->scan回调,但冒号不显示$h->as_string.