{"id":56,"date":"2006-08-03T21:20:45","date_gmt":"2006-08-03T12:20:45","guid":{"rendered":"https:\/\/deskplate.net\/blog\/2006\/08\/03\/perl-%e3%81%a7%e3%81%aepost-get%e5%a4%89%e6%95%b0%e5%8f%96%e5%be%97\/"},"modified":"2006-08-03T21:20:45","modified_gmt":"2006-08-03T12:20:45","slug":"perl-%e3%81%a7%e3%81%aepost-get%e5%a4%89%e6%95%b0%e5%8f%96%e5%be%97","status":"publish","type":"post","link":"https:\/\/deskplate.net\/blog\/archives\/56","title":{"rendered":"Perl \u3067\u306ePOST, GET\u5909\u6570\u53d6\u5f97"},"content":{"rendered":"<p>\u30ea\u30af\u30a8\u30b9\u30c8\u306e\u7a2e\u5225\u3092\u5224\u5b9a\u3057\u3066\u4e0b\u8a18\u306e\u3088\u3046\u306b\u3059\u308c\u3070<br \/>\nGET\u3067\u3082POST\u3067\u3082\u540c\u3058\u3088\u3046\u306b\u53d6\u5f97\u3067\u304d\u308b\u3063\u307d\u3044\u3067\u3059<br \/>\nif($ENV{&#8216;REQUEST_METHOD&#8217;} eq &#8220;GET&#8221;){<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$buffer = $ENV{&#8216;QUERY_STRING&#8217;} . &#8216;&#038;&#8217;;<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000@pairs  = split(\/&#038;\/,$buffer);<br \/>\n}elsif\u3000($ENV{&#8216;REQUEST_METHOD&#8217;} eq &#8220;POST&#8221;){<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$length = $ENV{&#8216;CONTENT_LENGTH&#8217;};<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000read(STDIN, $buffer, $length);<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000@pairs  = split(\/&#038;\/,$buffer);<br \/>\n}<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000foreach $pair (@pairs){<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000($name,$value) = split(\/=\/, $pair);<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$value =~ tr\/+\/ \/;<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$value =~ s\/%([a-fA-F0-9][a-fA-F0-9])\/pack(&#8220;C&#8221;, hex($1))\/eg;<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$param_value{$name} = $value;<br \/>\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000}<br \/>\n$param_value{&#8216;\u5909\u6570\u540d&#8217;}\u3000\u3067 value \u3092\u53d6\u5f97<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u30ea\u30af\u30a8\u30b9\u30c8\u306e\u7a2e\u5225\u3092\u5224\u5b9a\u3057\u3066\u4e0b\u8a18\u306e\u3088\u3046\u306b\u3059<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[],"class_list":["post-56","post","type-post","status-publish","format-standard","hentry","category-perl"],"_links":{"self":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts\/56","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/comments?post=56"}],"version-history":[{"count":0,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts\/56\/revisions"}],"wp:attachment":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/media?parent=56"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/categories?post=56"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/tags?post=56"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}