Выбор опции выпадающего меню в html с использованием perl

Мне нужно получить доступ к URL-адресу и установить различные параметры на странице с помощью Perl.

На странице есть много выпадающих меню, которые мне нужно установить.

Как мне установить каждое меню.

Код, который я написал, это..

use strict;
use warnings;
use strict;
use WWW::Mechanize;
use HTTP::Cookies;
my $outfile = "out2.htm";
my $url = "www.abcd.com"; #my web page
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
my $data = $mech->content();
open (f,'>',"data1.htm");
print f $data;
close(f);
$mech->form_name('form name');
my $network = "Network";
my $net_name = "Airtel";
$mech->select($network,$net_name);
my $output_page = $mech->content();
open (g,'>',"data2.htm");
print g $output_page;
close(g);

Я не могу увидеть опцию как "выбранную опцию" в моем выходном HTML-файле data2.htm

Я совершенно новичок в Perl. Пожалуйста помоги

0 ответов

Другие вопросы по тегам