æ£è¦è¡¨ç¾ã®ç½®æã§ã¨ãã©ãå°ãã®ã¯ãå ã®æååã夿´ããã¦ãã¾ããã¨ã§ãããã®ããããã¨ãã°æååã URI escape ããéã«ã¯ã以ä¸ã®ããã«å¥å¤æ°ã«ã³ãã¼ããä¸ã§ãæ£è¦è¡¨ç¾ãé©ç¨ãããã¨ã«ãªãã¾ãã my $escaped = $search_str; $escaped =~ s/([^0-9A-Za-z_.!~*'()-])/'%' . uc(unpack('H2', $1))/eg; my $url = "http://example.com/search?q=$escaped"; 以åããã®ç¹ãããã©ããããªã¼ã¨ããã°ã«æ¸ããã¨ãããkazeburo ããä»ã«ä»¥ä¸ã®ãããªãã¯ããã¯ãæãã¦ããã ãã¾ããã use List::MoreUtils qw(apply); my $url = 'http://example.com/search?q=' . apply { s/([^


{{#tags}}- {{label}}
{{/tags}}