Looks like pagesize is not supported by the website any more, All what this module do is initiate a request to the website & return the result for you.
As I can see, it does tell you how many pages returned in: $result->{'pages'} So you can take that number and loop through it initiating a new request supplying you want the next page by providing 'page' => $page in the options section
Update:Example Code Added
#!/usr/bin/perl use warnings; use strict; use WebService::Careerjet; my $careerjet = WebService::Careerjet->new('en_US'); # Search data my $Keywords = 'weather risk manager'; my $Location = 'us'; # Perform a search, asking for the first page my $result = $careerjet->search( {'keywords' => $Keywords , 'location' + => $Location , 'page' => 1, } ); # Go through results if ( $result->{'type'} eq 'JOBS') { OUTPUT($result->{'jobs'}); if ( $result->{'pages'} > 1 ) { foreach my $page ( 2..$result->{'pages'} ) { my $res = $careerjet->search( {'keywords' => $Keywords , ' +location' => $Location , 'page' => $page , } ); if ( $res->{'type'} eq 'JOBS' ) { OUTPUT( $res->{'jobs'} ); } } } } sub OUTPUT { my $lines = shift; open(OUT, '>>', "jobs.txt") or die $!; foreach my $j (@$lines) { print OUT "$j->{'url'}~$j->{'title'}~$j->{'company'}~$j->{'sal +ary'}~$j->{'date'}~$j->{'description'}~$j->{'site'}~$j->{'locations'} +\n"; } }
In reply to Re: WebService::Careerjet pagesize..?
by ahmad
in thread WebService::Careerjet pagesize..?
by cheech
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |