JSON/Perlã§GET,POSTJSON/Perlã§GET,POST JSON ( JavaScript Object Notation ) ã“ã“ã§ã¯ã€ã‚µãƒ¼ãƒãƒ¼å´ã‚’ Perl ã«ã—ã¦ã€XMLHttpRequestãªæ–¹æ³•ã§ã®GETã¨POSTã«ã‚ˆã‚‹JSONフォーマットã§ã®ãƒ‡ãƒ¼ã‚¿äº¤ä¿¡ã‚’試ã—ã¾ã™ã€‚サーãƒãƒ¼å´ã‚’ Perl ã«å¤‰ã£ãŸä»¥å¤–㯠PHPã§GET,POST ã¨ã¾ã£ãŸãåŒã˜ã§ã™ã€‚ GETã§é€/å—ä¿¡ POSTã§é€/å—ä¿¡ GETã§é€/å—ä¿¡ GETã§é€ä¿¡ã—ãŸãƒ‡ãƒ¼ã‚¿ã‚’ã€å—ã‘å–ã‚Šã¾ã™ã€‚ [ ./test3.cgi ] #!/usr/bin/perl #POSTã¨GETã‚’å–å¾— if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $pos, $ENV{'CONTENT_LENGTH'}); } else { $get = $ENV{'QUERY_STRING'}; } #変数ã¯1
{{#tags}}- {{label}}
{{/tags}}