Perl WWW::Mechanize는 응답 대신 페이지를 반환합니다.

Perl WWW::Mechanize는 응답 대신 페이지를 반환합니다.

저는 사용자 검색 프로세스를 꽤 자주 사용해야 하기 때문에 우리 대학에서 사용자 검색 프로세스를 자동화하려고 합니다. 저는 WWW::MechanizePerl이 이를 수행하는 훌륭한 방법이라는 것을 알았습니다. 그러나 다음 코드를 시도하면 응답은 항상 예상한 쿼리 결과가 아닌 원래 웹 페이지입니다.

#!/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();

저는 Perl을 처음 접했기 때문에 분명히 잘못된 일을 하고 있지만 문서를 읽은 후에도 그것을 알아낼 수 없습니다 WWW::Mechanize. 어떤 도움이라도 대단히 감사하겠습니다.

관련 정보