perl - 勝手に添削 - WEB+DB Press Vol.32 pp.94 について。 わたしなんかよりよっぽど perl を知っている人なのだろうから機能的な 点についてはコメントしないが、はたしてこの添削後のコードはきれいなのか? 気になるのは、 sub search_result{ return unless param("query"); ... my $response = get($uri) or return; ... と途中で節操なく return しているところ。 上記関数の引数がなく、$q がグローバル変数化しているところ。 最後の return $xml->{'totalResultsAvailable'}, "hits", ol(map { encode_utf8 li(a({href=>$_->{'ClickUrl'}}, $_->{'Title'}