use strict; use Scrappy; my $sess = 'sam.session'; my $scraper =Scrappy->new; -f $sess ? $scraper->session->load($sess) : $scraper->session->write($sess); my $mainurl="https://secure.samford.edu/php-bin/search/index.php"; my $search_url="https://secure.samford.edu/php-bin/search/dir_susearch.php"; $scraper->get($mainurl); my $scraper1 =Scrappy->new; -f $sess ? $scraper1->session->load($sess) : $scraper1->session->write($sess); $scraper1->post("$search_url",{ 'searchChar'=>"john", 'searchBy'=>"ball", 'roleRadioGp'=>"fall", 'submit'=>"submit" }); foreach my $key(keys %$scraper1) { print "\n$key :"; print "$scraper1->{$key}\n"; } $scraper1->logger->write('log.yml');