shスクリプトでcgiを書いている奴っていますか。
周りからは生きた化石と言われながら、頑固一徹
shスクリプトのcgiの可能性にかけている。
そんなcgi職人、集まれ！
↓C++で書いてるﾔｼ
CGI でシェルスクリプト使ったりします。
これってやっぱりシェルスクリプトなのかなぁ。
echo "Coutent-type:text/html;charse:Shift_JIS\r\n\r\nってよし"
perlで重くてシェルｽｸﾘﾌﾟﾄで軽いってことは
そんなにないだろう？
もしそうなのならマシンを見直す必要があると思うが・・・
WinのバッチファイルでCGI組んでるやつの方が
まだネタになるぞ
すごい穴になりそうだな
/bin/sh
つぅか標準入力を扱えない時点でCGI失格だと思われ。
# CStringマンセー
ブラウザの環境変数であれこれする
shスクリプト見たような気がする
#! /bin/sh
if [ $REQUEST_METHOD = "POST" ]
then
cp log.txt dummy.txt
printf "`cat -| awk -f filt.awk`" | sed -f filt.sed >> dummy.txt
printf "<br>\n" >> dummy.txt
tail -30 dummy.txt > log.txt
fi
cat <<END_OF_HEADER
Content-type: text/html; charset=EUC-JP
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
<meta http-equiv="Content-Script-Type" content="text/javascript">
<meta http-equiv="content-type" content="text/html; charset=EUC-JP">
<title>/bin/sh BBS</title>
</head>
<body onLoad="LoadCookie()">
<script type="text/javascript"><!--
function SaveCookie(val){
document.cookie = "handle_name="+escape(val)+"; path=/;";
}
function LoadCookie(){
var cookies = document.cookie.split(";"), value = "";
for(var i = 0; i < cookies.length; i++){
var piece = cookies[i].split("=");
if (piece[0].replace(" ","") == "handle_name"){
if (piece[1] != null){
document.forms[0].name.value =
unescape(piece[1]);
}
break;
}
}
}
--></script>
<h1 align="center">/bin/sh BBS</h1>
<hr>
<dl>
<dd>
END_OF_HEADER
cat log.txt
cat <<END_OF_FOOTER
</dd>
</dl>
<hr>
<a name="form">post form</a>
<form method="POST" action="shbbs.cgi#form" onSubmit="SaveCookie(this.name.value)">
name: <input name="name" size="19"> message: <input name="message" size="80"> <input type="submit" value="Write">
</form>
<div align="right"><a href="shbbs.cgi#form">Reload</a></div>
<hr>
<div align="right">/bin/sh BBS ver 1.0</div>
</body>
</html>
END_OF_FOOTER
BEGIN {
FS="="
RS="&"
}
{
key = "0123456789ABCDEFabcdef"
str = ""
i = 1
while(i <= length($2)){
d = substr($2, i, 1)
i++
if (d == "%"){
oct = 0
for(j = 0; j < 2; j++){
oct *= 16
d = substr($2, i, 1)
i++
for(k = 1; k < length(key); k++){
if (d == substr(key, k, 1)){
if (k > 16) k -= 6
oct += k-1
break
}
}
}
# if (oct > 127) oct = 32
if (oct < 32) oct = 32
col = 64
dec = ""
while(col > 0){
d = int(oct/col)
dec = (dec d)
oct -= d*col
col = int(col/8)
}
str = (str "\\" dec)
} else {
if (d == "+") d = " "
str = (str d)
}
}
$2 = str
}
$1 == "name" {
name = $2
}
$1 == "message" {
message = $2
}
END {
RS = "\n"
"date +'%y/%m/%d %T'" | getline time
print ("[" time ": " name "] " message)
}
s/&/\&/g
s/</\</g
s/>/\>/g
s/"/\"/g
で、一行BBSできます。
log.txt,dummy.txtを作っといてね。
# 動作無保証。
s/&/\&/g
s/</\</g
s/>/\>/g
s/"/\"/g
うう。
すまんかった。
どんまい。shだけでも結構なことができるんですね。
おかわり!
私の技量ではあれが限界。
awkなんて初めて使ったよ。
http://www.mahoroba.ne.jp/~makkie7/CGI/cgi_008.html
ここ見ながら勉強を初めたのだが、うちのサーバーには
cgiparseというソフトが見あたらない。そのHPにはNCSA
のサーバなら附属してくるとなっているが、 当方Apache
なので。。。
どなたか御教示を頂ければ。
作ろか？標準入力から入ってきたデータURLデコードするプログラム。
って言うかawkでも使えば？じゃあPerl使った方が早いなぁ・・・。
って言うかPerlの関数呼び出しとshのプロセス起動させまくり、どっちが軽いの？
おねげーしますだ。m(_ _)m
できればawkのものが勉強のためにはうれしかったりします。
27じゃないけど、単に標準入力から読んでデコードして標準出力に書き出すだけならこれでいいかな。
きちんとテストしていないけど。一度全てバッファに取り込んだ方がいいかな?
#include <stdio.h>
#include <stdlib.h>
int main()
{
char s[3]={0};
int c;
while((c=getchar())!=EOF){
switch(c){
case '+':
putchar(' ');
break;
case '%':
s[0]=((c=getchar())==EOF)?'\0':c;
s[1]=((c=getchar())==EOF)?'\0':c;
putchar(strtol(s,NULL,16));
break;
default:
putchar(c);
break;
}
}
return 0;
}
ありがとうございます。
これはccでコンパイルした後、どうshスクリプトに組み込めばよいのですか。
初学者なものでお手数をとらせてもうしわけございません。
URL エンコードされてない無関係な文字列が入ってると破綻するけど。
% cat urldec.sh
#!/bin/sh
( echo ibase=16; echo obase=8; echo "$@" | tr a-z% A-Z\\n ) |\
bc |\
while read a; do
echo -e \\0$a
done |\
tr -d \\n
% sh urldec.sh %A4%DB%A4%B2
おいらLISP(clisp)でつくってるよ〜
#! /usr/bin/perl
open (MYLISP,">mylisp.lisp");
print MYLISP "S式";
close(MYLISP);
system("clisp mylisp.lisp");
こんなんだけど・・・
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
http://www.pink-angel.jp/betu/linkvp2/linkvp.html
あんた、そっち公開しても仕方ないっしょ。
sh で書かれてるというのがあるんだった。
http://www.ascii.co.jp/pb/book1/announce/inet256/Source/shttpd
ああ、スーパサーバ使えば後は標準入出力のプログラムになるからなぁ。
<H1>ただいまメンテ中</H1>
って吐くだけの同じ奴を使ってた事がある。
apache止めてる間だけとか。
shスクリプトが生き残れなかったのはなんでだろう？
shから呼ばれる外部コマンドのパスや引数や実装がOSによって大きく異なる。
あまつさえ/bin/sh自身がOSによって互換性がない。
うむ。その前提で限界に挑戦するのがおもしろいのではないのか？
（ ＾＾ ）＜ ぬるぽ（＾＾）
と言ってみるテスト
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
> 外部コマンドを大量に起動するためにオーバヘッドが非常に大きく遅い。
> shから呼ばれる外部コマンドのパスや引数や実装がOSによって大きく異なる。
> あまつさえ/bin/sh自身がOSによって互換性がない。
上のほうでシェルスクリプトがperlより軽いとか言ってるのはウソなんですね。
ただ、ある程度以上の規模になると外部コマンドを fork せずに
スクリプトを書くことができない。だから総体として重くなる。
ある程度以上の規模のスクリプトなら、
いったん中間言語にコンパイルしてから実行する perl にはかなわんね。
テキスト−＞解析−＞実行
テキスト−＞解析−＞中間コード生成−＞解析−＞実行
Perlの方が遅くないか？JSPの初回起動みたいなもんだろ。
ループとかだと若干有利か。
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
（ ＾＾ ）＜ ぬるぽ（＾＾）
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
カウンタつっても、Perlかshでつくったものしかなかったよ・・・なつかしや
perlとC(バイナリ）では正常に動くんですけど・・・
shだと500 internal server errorになります。
ちなみにシェルはcsh使ってます
hello.cgi
-----------------
#!/bin/sh
echo "Content-type: text/html\n\n";
echo "Hello";
つNKF
.shで動かしたいならスクリプトがあるディレクトリに.htaccessを作り、
AddType application/x-httpd-cgi .sh
と書けばよい
#!/bin/bash
#環境変数[QUERY_STRING]を[&]を空白に変換しパース
_QRYVAL=`echo "$QUERY_STRING" | tr '&' '\t'`
#引数解析
for v in $_QRYVAL
do
#[=]を空白に変換し配列化
v=(`echo "$v" | tr '=' '\t'`)
#formの[name]に[value]を格納（URLデコード）
eval "${v[0]}"="`echo ${v[1]} | tr % = | nkf -emQZ1`"
done
