WebService::Recruit::Jalan::StockSearch - Jalan Web Service "StockSearch" API
use WebService::Recruit::Jalan; my $jalan = WebService::Recruit::Jalan->new(); $jalan->key( 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' ); my $param = { s_area => '137412', stay_date => '20070910', stay_count => '3', adult_num => '2', }; my $res = $jalan->StockSearch( %$param ); die "error!" if $res->is_error; my $list = $res->root->Plan; foreach my $plan ( @$list ) { print "PlanName: ", $plan->PlanName, "\n"; print "HotelName: ", $plan->Hotel->HotelName, "\n"; } my $root = $res->root;
The request to this API requires one or some of query parameters below:
my $param = { reg => '10', pref => '130000', l_area => '136200', s_area => '136202', h_id => '324994', o_area_id => '50024', o_id => '0042', x => '503037529', y => '128366212', range => '10', h_name => 'Hotel Name', stay_date => '20070803', stay_count => '1', room_count => '1', adult_num => '1', sc_num => '0', lc_num_bed_meal => '0', lc_num_meal_only => '0', lc_num_bed_only => '0', lc_num_no_bed_meal => '0', min_rate => '100000', max_rate => '10000', 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', high => '0', p_ok => '0', o_bath => '0', pour => '0', cloudy => '0', i_pool => '0', fitness => '0', gym => '0', p_field => '0', bbq => '0', hall => '0', 5_station => '0', 5_beach => '0', 5_slope => '0', c_card => '0', c_jcb => '0', c_visa => '0', c_master => '0', c_amex => '0', c_uc => '0', c_dc => '0', c_nicos => '0', c_diners => '0', c_saison => '0', c_ufj => '0', cvs => '0', room_b => '0', room_d => '0', prv_b => '0', prv_d => '0', early_in => '0', late_out => '0', no_smk => '0', net => '0', r_room => '0', sp_room => '0', bath_to => '0', no_meal => '0', b_only => '0', d_only => '0', 2_meals => '0', sng_room => '0', twn_room => '0', dbl_room => '0', tri_room => '0', 4bed_room => '0', jpn_room => '0', j_w_room => '0', child_price => '0', c_bed_meal => '0', c_no_bed_meal => '0', c_meal_only => '0', c_bed_only => '0', pict_size => '3', # pictM picts => '3', 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->Plan $root->Plan->[0]->PlanName $root->Plan->[0]->RoomName $root->Plan->[0]->PlanDetailURL $root->Plan->[0]->Facilities $root->Plan->[0]->Facilities->Facility->[0] $root->Plan->[0]->PlanCheckIn $root->Plan->[0]->PlanCheckOut $root->Plan->[0]->PlanPictureURL $root->Plan->[0]->PlanPictureCaption $root->Plan->[0]->Meal $root->Plan->[0]->RateType $root->Plan->[0]->SampleRate $root->Plan->[0]->Stay $root->Plan->[0]->Stay->[0]->PlanDetailURL $root->Plan->[0]->Stay->[0]->Date $root->Plan->[0]->Stay->[0]->Date->[0]->date $root->Plan->[0]->Stay->[0]->Date->[0]->month $root->Plan->[0]->Stay->[0]->Date->[0]->year $root->Plan->[0]->Stay->[0]->Date->[0]->Rate $root->Plan->[0]->Stay->[0]->Date->[0]->Stock $root->Plan->[0]->Hotel $root->Plan->[0]->Hotel->HotelID $root->Plan->[0]->Hotel->HotelName $root->Plan->[0]->Hotel->PostCode $root->Plan->[0]->Hotel->HotelAddress $root->Plan->[0]->Hotel->Area $root->Plan->[0]->Hotel->Area->Region $root->Plan->[0]->Hotel->Area->Prefecture $root->Plan->[0]->Hotel->Area->LargeArea $root->Plan->[0]->Hotel->Area->SmallArea $root->Plan->[0]->Hotel->HotelType $root->Plan->[0]->Hotel->HotelDetailURL $root->Plan->[0]->Hotel->HotelCatchCopy $root->Plan->[0]->Hotel->HotelCaption $root->Plan->[0]->Hotel->PictureURL $root->Plan->[0]->Hotel->PictureCaption $root->Plan->[0]->Hotel->X $root->Plan->[0]->Hotel->Y $root->Plan->[0]->Hotel->HotelNameKana $root->Plan->[0]->Hotel->NumberOfRatings $root->Plan->[0]->Hotel->Rating
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.