æ¢ã«è²ããªäººããã£ã¦ããéãã gyazo ã¯ç°¡åã«ä½ããã ãµã¼ã ãµã¼ãå´ã®ä»æ§ã¯ "imagedata" ã¨ãããã©ã¡ã¼ã¿åã§ç»åãpostãããªã¯ã¨ã¹ããæå¾ ãã ã¬ã¹ãã³ã¹ã¯ text/html ã§ã text/plain ã§ãããã®ã§ãã¨ã«ããä»»æã®ããã¹ããè¿ãï¼æ®éã¯çæããç»åã® urlï¼ perlã§ããã¨ãããªã use strict; use warnings; use Digest::MD5 qw/md5_hex/; use File::Copy qw/copy/; use Plack::Builder; use Plack::Request; our $UPLOAD_DIR; our $BASE_URL = "http://example.com/your/gyazo/path"; BEGIN { $UPLOAD_DIR = $ENV{UPLOAD_DIR} ||

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