ã¿ã¤ãã«é·ããã£ã¦ããããã®ã¾ãã¾ã§ãã #!/usr/bin/perl use strict; use warnings; use URI; my $s = 'http://example.com/?q=%82%e2%82%e9%95v%82%c5%8aw%82%d4'; utf8::upgrade($s); my $uri = URI->new($s); my %qf = $uri->query_form; $qf{flag} = 'ON'; $uri->query_form( %qf ); my $uri_str = $uri->as_string; ãããä¸è¦ããã¨$uri_str㯠http://example.com/?q=%82%e2%82%e9%95v%82%c5%8aw%82%d4&flag=ONã«ãªããããªãã§ãããå®éã«ã¯ http://example.com/?q=
{{#tags}}- {{label}}
{{/tags}}