Perl WWW :: Mechanize retorna a página em vez da resposta

0

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.

    
por Ketan 03.08.2017 / 19:43

0 respostas

Tags