Estou tentando automatizar o processo de pesquisa do usuário em nossa universidade porque preciso usá-lo com frequência. Eu achei que WWW::Mechanize
do perl é uma boa maneira de fazer isso. No entanto, quando eu tento o código a seguir, a resposta é sempre a página da web original e não o resultado da consulta que estou esperando:
#!/usr/local/bin/perl
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get('http://find.pitt.edu');
$mech->submit_form(
form_number => 1,
fields => { query => 'Barroso', },
button => 'ctl00$ContentPlaceHolder1$btnSearchAll'
);
$mech->success or die "post failed: ", $mech->response->status_line;
print $mech->content_type();
print $mech->response()->content();
Sou muito novo no Perl, por isso estou fazendo algo obviamente errado, mas não consegui descobrir depois de ler a documentação WWW::Mechanize
. Qualquer ajuda é muito apreciada.
Tags perl