Perlメモ

楽天トラベルAPI（Perl)メモ ↑

楽天ウェブサービスのAPIを触った時のメモ。
すぐ忘れるので恥さらしながらメモっときます。
・楽天トラベルキーワードAPI
・楽天商品検索APIサンプルPHP
・楽天商品検索APIサンプルPerl

検索結果に「次のページ」をつける ↑

楽天商品検索APIのサンプルコードを拾ってきて、パラメーター等をトラベル用に変更。
検索結果は出るも「次のページ」とか「前のページ」がなかったので表示できるようにした。
＊＊＊.cgiはスクリプト名。「検索」のところは
if(urldecode($req_params{'submit'}) eq "検索"){　の""に合わせる。

$page_view ="20";

# フォーム入力値の表示
$req_params{page}    = htmlspecialchars((urldecode($req_params{page})));

# ベタな正規表現
if($item=~/<page>(.+)<\/page>/)           {$page =$1;}

if(!$req_params{page}){$req_params{page}=1;}
$thispage = $req_params{page};
$start_page = $thispage;
$back_page = $thispage - 1;
$end_page = $thispage + 1;
$end_view = $thispage*$page_view;
if ($back_page > 0) { print"<a href=\"***.cgi?keyword=$req_params{keyword}
&submit=検索&page=$back_page\">前のページ</a>｜"; }
print "<strong>$thispageページ</strong>｜";
if($recordCount > $end_view) { print"<a href=\"***.cgi?keyword=$req_params
{keyword}&submit=検索&page=$end_page\">次のページ</a>";}

なんか他に書き方ないんか〜？って感じだけども(;´▽｀A``
でもこれでも３時間以上かかってるので・・・もぉこれでよしとする。。。

一応完成（2008.01.06） ↑

お泊まり宿ナビ
携帯版もキャリアが1なら使えるのだが、同じcgiではうまく分岐ができず、泣く泣くcgiをコピーして、モバイル専用にした。
それにしてもキーワード検索APIだけしか触ってないのに公開するとは自分でも根性あると思う（まぁどうせ旦那用ホテル検索だけど）。

携帯ではいらないタグもいっぱいあったのでついでにはずす。
携帯だとホテル画像は全部「あのバナー」になってしまうのではずす。

しかしながら・・・

・・・つまりキャリア情報がモバイル(1)だと、アフィリエイトタグにはならないって事やん！！
しょうがないので、携帯用のcgiはhotelAffiliateUrlをすべてhotelInformationUrlに変えて使用。
これで無事検索もできるし、ちゃんとホテル情報へ飛ぶ。
飛ぶ・・・んだけど、報酬にはならないなぁ。
なんとかして、楽天さん。。。