use URI::Escape; ... ### リストマニャ検索リンクの作成 # usage: {{lms('ウェブ')}} sub lms { my ($key) = @_; my $aid = "tatsuo-22/"; # 自分で設定 my $q = URI::Escape::uri_escape(Jcode->new($key)->utf8); return qq(<a href="http://lm.yasazon.com/search/1/$q/$aid" ) .qq(title="$key" target="_blank">$key</a>); }
lm.yasazon.com/search/1/エンコードした検索キー/アソシID/下記の記事でも解説しています: