スキップしてメイン コンテンツに移動

ファイルアップロードの CGI を gawk で作ってみよう！ 




【HTMLファイル】


<html>



<head>



<title>ファイルアップロード</title>



</head>



<body>



【gawk プログラム】











<!--  fromの属性に enctype="multipart/form-data" を付けるのを忘れずに！ //-->



<form method="post" action="/cgi-bin/gawk.cgi" enctype="multipart/form-data">



<input type=text name="path">



<input type="file" name="file1" size="60" />



<input type="file" name="file2" size="60" />



<input type="submit" name="submit" value="送信" />



</form>







</body>



</html>




【受け取る gawk】



#! /usr/bin/gawk -f







BEGIN{



 print "Content-Type: text/plain"



 print ""



 print "This is test"



 print 1,ENVIRON["AUTH_TYPE"]



 print 2,ENVIRON["CONTENT_LENGTH"]



 print 3,ENVIRON["CONTENT_TYPE"]



 print 4,ENVIRON["GATEWAY_INTERFACE"]



 print 5,ENVIRON["PATH_INFO"]



 print 6,ENVIRON["PATH_TRANSLATED"]



 print 7,ENVIRON["QUERY_STRING"]



 print 8,ENVIRON["REMOTE_ADDR"]



 print 9,ENVIRON["REMOTE_HOST"]



 print 10,ENVIRON["REMOTE_IDENT"]



 print 11,ENVIRON["REMOTE_USER"]



 print 12,ENVIRON["REQUEST_METHOD"]



 print 13,ENVIRON["SCRIPT_NAME"]



 print 14,ENVIRON["SERVER_NAME"]



 print 15,ENVIRON["SERVER_PORT"]



 print 16,ENVIRON["SERVER_PROTOCOL"]



 print 17,ENVIRON["SERVER_SOFTWARE"]



 system("rm /var/www/win/up/myfile")



}



{



 print $0 >> "/var/www/win/up/myfile"



}






【関連する環境変数】


Content Type の環境変数


multipart/form-data; boundary=----WebKitFormBoundaryMU4Bxx8HoqSOyTQG




実際のデータ






【標準出力か取得できる】



------WebKitFormBoundaryMU4Bxx8HoqSOyTQG



Content-Disposition: form-data; name="path"







myPath



------WebKitFormBoundaryMU4Bxx8HoqSOyTQG



Content-Disposition: form-data; name="file1"; filename="README"



Content-Type: application/octet-stream







＜テキストデータ；省略＞







------WebKitFormBoundaryMU4Bxx8HoqSOyTQG



Content-Disposition: form-data; name="file2"; filename="google日本語.png"



Content-Type: image/png







?PNG





＜PNG画像データ；省略＞



------WebKitFormBoundaryMU4Bxx8HoqSOyTQG



Content-Disposition: form-data; name="submit"







送信



------WebKitFormBoundaryMU4Bxx8HoqSOyTQG--









































コメント











コメントを投稿






























このブログの人気の投稿



















余裕ですかね。




























  いまの自分はやることが多いが、意外と慌てず一歩一歩現場と歩んでいき、地道にデータ入力から可視化までの利便性、完全性と正確性を追求する余裕が出ております。SpotfireというBIツールにハマり、人に使い方を教えながらもまたその恩恵を受けているといういい循環も大きいですね。大体自分のようなポストにいる人たちはあまりプログラムを書く余裕もないだが、自分は幸せのほうと思います。




















コメントを投稿









Read more »




























自己流思い付き




























　長年契約してきたさくらインターネットのVPSに稼働しているWordpressが何らかのものに削除されました。幸い残したいものはこのブログに移したので、あまり困ったことはありませんでした。もうVPSを解約しようと思いますが、今年の11月までの契約なので、正直って迷っております。 　職場のホームページサーバがMacmini上のピュアDebianなので、実験台としてVPSを契約したのですが、もう実験しないし、解約してもよいだと思います。   このブログもこれをきっかけにタイトルを変えました。




















コメントを投稿









Read more »






























Excel Power Query 英数字の全角から半角への変換




























最近仕事上でExcelのPower Queryを始めました。しかし、英数字の全角から半角への変換関数がないため、下記のサイトを参考して、 作っちゃいました。  https://qiita.com/baku2san/items/8041d0259fe0db680e7e https://www.yoheim.net/blog.php?q=20191101 (original as text) as text =&gt; let    originalText = Text.Combine({original, ""}),    replaceResult =  Web.Page("<script>var originalText="&"'"&originalText&"'"&";var result=originalText.replace(/[Ａ-Ｚａ-ｚ０-９]/g, function(s) {return String.fromCharCode(s.charCodeAt(0) - 0xFEE0);});document.write(result);</script>")       [Data]{0}[Children]{0}[Children],    result = if (List.Count(replaceResult) &lt;= 1) then    {        "" as text // 変換して何も残らない場合    } else if (replaceResult{1}[Text]{0} = null) then    {       originalText   as text// 何も見つからない場合    }  else {       replaceResult{1}[Text]{0} as text    } in     result{0}                                                                                             




















コメントを投稿









Read more »