2003 年 7 月 23 日 (水) 自宅

うー、今日は微妙に短時間出勤したのだけれども、やっぱりまだ体調は今一つだな。無理しない方が良さそうだ。そうはいっても、いろいろ調整しなければならないこともあったし、たまっていたこともあったし。行かざるを得なかったんだけどね。明日は静かに休んだ方がいいかも。

とりあえず、昨日作った AWS 用検索関数、タイムアウトでサブルーチンが die するのはあんまり、ということと、ページ指定ができない、という点を少し改造。

die しないように改造

 READ_HEADER: {
    unless ($sel->can_read(10)) {
      $sel = '';
      $s = '';
      return '';
    }
    my($code, $mess, %h) = $s->read_response_headers;
    redo READ_HEADER unless $code;
  }

  my $xmlresp = '';

  while (1) {
    unless ($sel->can_read(10)) {
      $sel = '';
      $s = '';
      return '';
    }
    my $buf;
    my $n = $s->read_entity_body($buf, 1024);
    last unless $n;
    $xmlresp .= $buf;
  }

ページ指定できるように改造

sub amazonXmlHttpQuery($$$$) {
  my ($keyword, $type, $category, $page) = @_;
  my $esckeyword = uri_escape($keyword);
  ...(略)...
  my $xsort = '';
  if ($sort_keys{$category}) {
    $xsort = "&sort=" . uri_escape($sort_keys{$category});
  }
  # page number is number
  $page =~ s/\D//g;
  $page += 0;
  $page = 1 if $page < 1;

  my $resource = "/onca/xml3?t=$tag&dev-t=$devt&KeywordSearch=$esckeyword&"
                ."mode=$category&type=$type&page=$page$xsort&f=xml&locale=jp"
		."$jphack";

今日はさっさと寝ます。

この話題、戻る← 2003/07/22 『AWS: ソート順の謎』

この話題、続く← 2003/07/27 『AWS: AWS: 「￥」バグが直り、SOAP アクセス可能に』

このサイトへのリンクには何ら許可は必要ありません。ただし、無断で写真をダウンロードして他の場所に掲載したり、画像加工の素材として利用するなど、再配布に当たる行為はしないようにしてください。また、このサイトへのリンクであることを明示すること無しに <img src="..."> などで他のページの内部に画像ファイルを取り込むことも、ご遠慮下さい。