今度は，CGI．
以前少しやってみたが，500 Internal Server Error となりそのままとなっていた．
cgi の先頭行の指定が怪しいと察しはついていたので検索すると，
通常は「#!/usr/bin/perl」か「#!/usr/local/bin/perl」とのこと．
それぞれのフォルダを見ると，
Iwao@DS115j:/usr/bin$
Iwao@DS115j:/usr/bin$ ls pe*
perl perror
Iwao@DS115j:/usr/bin$
Iwao@DS115j:/usr/bin$ cd /usr/local/bin/
Iwao@DS115j:/usr/local/bin$
Iwao@DS115j:/usr/local/bin$ ls pe*
perl perl5.24.0 perlbug perldoc perlivp perlthanks
Iwao@DS115j:/usr/local/bin$
さらに検索すると，改行の問題とのこと．
「#!/usr/bin/perl –」の様に後ろに “–” を付ければ良いらしい．
または，’LF’ にすれば良いみたい．
‘CR’ として試すと，”–” の有無に関係なく 502 Bad Gateway となってしまう．
また文字コードは，UTF-8 などを使用すると思うが，「BOM なし」の必要がある．
2021/01/03
SVG を出力するコード．
#!/usr/bin/perl --
print "Content-type: text/html\n";
print "\n";
print "<!DOCTYPE html>\n";
print "<html>\n";
print "<head>\n";
print " <meta charset=\"utf-8\">\n";
print " <title>SVG</title>\n";
print " </head>\n";
print "<body>\n";
print " <svg viewBox=\"0 0 100 100 \" xmlns=\"http://www.w3.org/2000/svg\" >\n";
print " <rect x=\"15\" y=\"10\" width=\"70\" height=\"40\" stroke=\"blue\" fill=\"white\" />\n";
print " </svg>\n";
print " </body>\n";
print "</html>\n";
更に cpp として書いたコード．
g++ drawrect.cpp として出来上がった a.out を rect_cpp.cgi としてコピー．
/i_Tools/…/cgi/rect_cpp.cgi
https://jml.mish.work/index.php/various/nas/synology-nas.html