WWW::Mechanize 发送自定义 HTTP headers

Question

你好，我正在制作一个用于打开网页的小程序，该网页需要接收我的 msisdn 以允许我接收登录信息，我正在尝试通过这种方式发送它

#!/usr/bin/perl

use WWW::Mechanize;

my $target = "http://www.example.domain/subscription/showsubscribe";

my $user_agent = 'Mozilla/5.0 (Linux; Android 4.2.2; es-us; SAMSUNG GT-I9195L Build/JDQ39) AppleWebKit/535.19 (KHTML, like Gecko) Version/1.0 Chrome/18.0.1025.308 Mobile Safari/535.19';
my $phonenumber = 'XXXXXXXXXX';

my $mech = WWW::Mechanize->new(agent=>$user_agent);
$mech->add_header('x-msisdn'=> $phonenumber);

my $response = $mech->get($target);
die "Error at '$target'\n", $response->status_line, "\n
Aborting" unless $response->is_success;
print $mech->content;

$response = $mech->response;
for my $key ($response->header_field_names()) {
print "response[$key] = ", $response->header($key), "\n";

X-msisdn 我从这个页面在论坛中阅读的变量：http://mobiforge.com/design-development/useful-x-headers

知道如何发送 HTTP header 吗？

提前致谢！

Answer 1

... $mech->add_header('x-msisdn'=> $phonenumber);

any idea of how i can send the HTTP header?

header 已发送（使用 wireshark 或类似工具检查）。你的问题有点不同。

WWW::Mechanize 发送自定义 HTTP headers

WWW::Mechanize send custom HTTP headers

perl

www-mechanize