WebService::Recruit::Jalan::HotelSearchLite - Jalan Web Service "HotelSearchLite" API
use WebService::Recruit::Jalan; my $jalan = WebService::Recruit::Jalan->new(); $jalan->key( 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' ); my $param = { s_area => '162612', h_type => '1', }; my $res = $jalan->HotelSearchLite( %$param ); die "error!" if $res->is_error; my $list = $res->root->Hotel; foreach my $hotel ( @$list ) { print "HotelID: ", $hotel->HotelID, "\n"; print "HotelName: ", $hotel->HotelName, "\n"; } my $root = $res->root;
The request to this API requires one or some of query parameters below:
my $param = { pref => '130000', l_area => '136200', s_area => '136202', h_id => '324994', h_type => '0', o_pool => '0', parking => '0', pub_bath => '0', onsen => '0', prv_bath => '0', v_bath => '0', sauna => '0', jacz => '0', mssg => '0', r_ski => '0', r_brd => '0', pet => '0', esthe => '0', p_pong => '0', limo => '0', late_out => '0', pict_size => '3', # pictM order => '0', start => '1', count => '10', };
The response from this API is tree structured and provides methods below:
$root->NumberOfResults $root->DisplayPerPage $root->DisplayFrom $root->APIVersion $root->Hotel $root->Hotel->[0]->HotelID $root->Hotel->[0]->HotelName $root->Hotel->[0]->PostCode $root->Hotel->[0]->HotelAddress $root->Hotel->[0]->Area $root->Hotel->[0]->Area->Region $root->Hotel->[0]->Area->Prefecture $root->Hotel->[0]->Area->LargeArea $root->Hotel->[0]->Area->SmallArea $root->Hotel->[0]->HotelType $root->Hotel->[0]->HotelDetailURL $root->Hotel->[0]->HotelCatchCopy $root->Hotel->[0]->HotelCaption $root->Hotel->[0]->PictureURL $root->Hotel->[0]->PictureCaption $root->Hotel->[0]->AccessInformation $root->Hotel->[0]->AccessInformation->[0]->name $root->Hotel->[0]->CheckInTime $root->Hotel->[0]->CheckOutTime $root->Hotel->[0]->X $root->Hotel->[0]->Y $root->Hotel->[0]->LastUpdate $root->Hotel->[0]->LastUpdate->day $root->Hotel->[0]->LastUpdate->month $root->Hotel->[0]->LastUpdate->year
And paging methods are provided, see "PAGING" in WebService::Recruit::Jalan. This module is based on XML::OverHTTP.
WebService::Recruit::Jalan
Yusuke Kawasaki http://www.kawa.net/
This module is unofficial and released by the authour in person.
Copyright (c) 2007 Yusuke Kawasaki. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install WebService::Recruit::Jalan, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WebService::Recruit::Jalan
CPAN shell
perl -MCPAN -e shell install WebService::Recruit::Jalan
For more information on module installation, please visit the detailed CPAN module installation guide.