WWW :: Mechanize отправить пользовательские заголовки HTTP

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-заголовок?

благодарит заранее!

Answer 1

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

любая идея, как я могу отправить HTTP-заголовок?

Заголовок отправляется (отметьте с помощью wirehark или аналогичного). Ваша проблема в другом.