저는 사용자 검색 프로세스를 꽤 자주 사용해야 하기 때문에 우리 대학에서 사용자 검색 프로세스를 자동화하려고 합니다. 저는 WWW::Mechanize
Perl이 이를 수행하는 훌륭한 방법이라는 것을 알았습니다. 그러나 다음 코드를 시도하면 응답은 항상 예상한 쿼리 결과가 아닌 원래 웹 페이지입니다.
#!/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
. 어떤 도움이라도 대단히 감사하겠습니다.