{"id":31,"date":"2018-01-30T11:47:18","date_gmt":"2018-01-30T02:47:18","guid":{"rendered":"https:\/\/pocolog.bass-world.net\/tech\/?p=31"},"modified":"2018-01-30T11:47:18","modified_gmt":"2018-01-30T02:47:18","slug":"perl-javascript-drag-and-drop","status":"publish","type":"post","link":"https:\/\/pocolog.bass-world.net\/tech\/2018\/perl-javascript-drag-and-drop\/","title":{"rendered":"[Perl][Javascript]\u30d5\u30a1\u30a4\u30eb\u3092\u30c9\u30e9\u30c3\u30b0&\u30c9\u30ed\u30c3\u30d7\u3067\u30b5\u30fc\u30d0\u306b\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3059\u308b"},"content":{"rendered":"

\u30d5\u30a1\u30a4\u30eb\u3092\u30c9\u30e9\u30c3\u30b0&\u30c9\u30ed\u30c3\u30d7\u3057\u3066\u30b5\u30fc\u30d0\u306b\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3059\u308b\u65b9\u6cd5\u304c\u3084\u3063\u3068\u308f\u304b\u308a\u307e\u3057\u305f\u3002
\n\u809d\u306f\u4ee5\u4e0b\u306e\u3068\u3053\u308d\u3067\u3059\u3002<\/p>\n

\n
function uploadFile(file){\nvar formData = new FormData();\nformData.append('file', file);\n$.ajax({\n  async: true,\n  type: 'POST',\n  contentType: false,\n  processData: false,\n  url: 'dndtest.cgi',\n    data: formData,\n    dataType :'html'\n}).done(function(){});<\/code><\/pre>\n<\/blockquote>\n
\u30d5\u30a1\u30a4\u30eb\u3092\u30c9\u30e9\u30c3\u30b0&\u30c9\u30ed\u30c3\u30d7\u3057\u3066\u30d5\u30a1\u30a4\u30eb\u540d\u306a\u3069\u3092\u53d6\u5f97\u3059\u308b\u65b9\u6cd5\u306f\u7d50\u69cb\u30cd\u30c3\u30c8\u306b\u3042\u304c\u3063\u3066\u3044\u307e\u3059\u3051\u3069\u3001\u5b9f\u969b\u306b\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30b5\u30fc\u30d0\u306b\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3059\u308b\u65b9\u6cd5\u3092\u89e3\u8aac\u3059\u308b\u30b5\u30a4\u30c8\u304c\u306a\u304f\u3001\u82e6\u52b4\u3057\u307e\u3057\u305f\u3002<\/p>\n
    \n
  1. FormData\u3092\u4f7f\u3046\u3002<\/li>\n
  2. ajax\u3067POST\u3059\u308b\u3002<\/li>\n<\/ol>\n
    \u30d5\u30a1\u30a4\u30eb\u3092\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3059\u308b\u7b87\u6240\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3067\u3059\u3002<\/p>\n
    \n
    my $q = new CGI;\nmy @fps = $q->upload('file');\nmy @fnames = $q->param('file');\nmy $idx = 0;\nforeach my $fname(@fnames){\n    $fname = basename($fname);\n    copy($fps[$idx], \".\/test\/$fname\");\n    $idx++;\n}<\/code><\/pre>\n<\/blockquote>\n
    $q->upload()\u3092\u4f7f\u3046\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u304b\u306a\u304b\u6c17\u3065\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002<\/p>\n
    \u4ee5\u4e0b\u304c\u30bd\u30fc\u30b9\u3067\u3059\u3002\u8907\u6570\u30d5\u30a1\u30a4\u30eb\u306e\u30c9\u30e9\u30c3\u30b0&\u30c9\u30ed\u30c3\u30d7\u306b\u3082\u5bfe\u5fdc\u3057\u3066\u3044\u307e\u3059\u3002
    \n<\/p>\n
    \n
    #!\/usr\/bin\/perl\nuse strict;\nuse utf8;\nuse CGI;\nuse File::Basename;\nuse File::Copy;\nuse File::Path;\nuse Encode;\nuse FindBin;\n\nmy $q = new CGI;\nmy @fps = $q->upload('file');\nmy @fnames = $q->param('file');\nmy $idx = 0;\nforeach my $fname(@fnames){\n    $fname = basename($fname);\n    copy($fps[$idx], \".\/test\/$fname\");\n    $idx++;\n}\nmy $out = <\n<!DOCTYPE html PUBLIC \"-\/\/W3C\/\/DTD XHTML 1.0 Strict\/\/EN\"\n    \"http:\/\/www.w3.org\/TR\/xhtml1\/DTD\/xhtml1-strict.dtd\">\n<html xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\" xml:lang=\"ja\" lang=\"ja\">\n<head>\n<meta http-equiv=\"Content-Type\" content=\"text\/html; charset=utf-8\"\/>\n<script src=\"http:\/\/code.jquery.com\/jquery-1.12.4.js\">\n<script type=\"text\/javascript\">\n    function PageLoad(e) {\n        var dropFrame = document.getElementById('DropFrame');\n        dropFrame.addEventListener('dragover', onDragOver, false);\n        dropFrame.addEventListener('drop', onDrop, false);\n    }\n    function onDragOver(e){\n        e.preventDefault();\n    }\n    \n    function onDrop(e) {\n        e.stopPropagation();\n        e.preventDefault();\n        \n        var files = e.dataTransfer.files; \n        \n        for(var i = 0; i \n<\/head>\nEOM\nprint(encode('UTF-8', $out)) or die($!);\n$out = <\n    <div id=\"DropFrame\" style=\"background-color:#b8deff;border:solid 1px #3470ff; width:360px; height:120px;\">\u3053\u3053\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u30c9\u30ed\u30c3\u30d7\u3057\u307e\u3059\u3002<br \/>@fnames<\/div>\nEOM\nprint(encode('UTF-8', $out)) or die($!);\n$out = <\n    $(function(){\n        PageLoad();\n    });\n<\/script>\n<\/body>\n<\/html>\nEOM\nprint(encode('UTF-8', $out)) or die($!);<\/code><\/pre>\n<\/blockquote>\n","protected":false},"excerpt":{"rendered":"
    \u30d5\u30a1\u30a4\u30eb\u3092\u30c9\u30e9\u30c3\u30b0&\u30c9\u30ed\u30c3\u30d7\u3057\u3066\u30b5\u30fc\u30d0\u306b\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3059\u308b\u65b9\u6cd5\u304c\u3084\u3063\u3068\u308f\u304b\u308a\u307e\u3057\u305f\u3002 \u809d\u306f\u4ee5\u4e0b\u306e\u3068\u3053\u308d\u3067\u3059\u3002 function uploadFile(file){ var formData = new FormDa … <\/p>\n
    “[Perl][Javascript]\u30d5\u30a1\u30a4\u30eb\u3092\u30c9\u30e9\u30c3\u30b0&\u30c9\u30ed\u30c3\u30d7\u3067\u30b5\u30fc\u30d0\u306b\u30a2\u30c3\u30d7\u30ed\u30fc\u30c9\u3059\u308b” \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[7,9,11],"tags":[],"class_list":["post-31","post","type-post","status-publish","format-standard","hentry","category-html","category-javascript","category-perl"],"_links":{"self":[{"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/posts\/31","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/comments?post=31"}],"version-history":[{"count":0,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/posts\/31\/revisions"}],"wp:attachment":[{"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/media?parent=31"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/categories?post=31"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/tags?post=31"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}