POSTで送られたデータのContent-typeが、'application/x-www-form-urlencoded'や'multipart/form-data'でない時に限り、CGI::paramに'POSTDATA'という文字列を指定することで、リクエストボディ丸ごと取得できる。
CGI - Common Gateway Interface のリクエストとレスポンスを扱う - perldoc.jp
これもついでにWindows環境でやる。
前回のHttpClientをベースに、
受け側のCGIファイル名を"CGI.cgi"に変えたので、それだけ修正。
CGI.cgiは、
$q->param('POSTDATA')で、$bufをもらって、それをprintでOUT("image1.bmp")に書き出し。
![送信](https://cdn-ak.f.st-hatena.com/images/fotolife/B/BG1/20210825/20210825103901.png)
送信。
![ファイル出来てたし、開けた。](https://cdn-ak.f.st-hatena.com/images/fotolife/B/BG1/20210825/20210825103959.png)
ファイル出来てたし、開けた。
Sample/perl/CGI/param_POSTDATA/src/cgi at master · bg1bgst333/Sample · GitHub