もっと軽くて渋いCGI.pmを創ろう

**名無しさん＠お腹いっぱい。** · 01/12/25 13:52

お願いしまふ

**取り入れよ！** · 01/12/25 13:57

欲しい所だけリッピングする
（・-・）すうろぅ（・-・）

**名無しさん＠お腹いっぱい。** · 01/12/25 13:58

HNS とか TDS に付いてるやつじゃだめなの？

上尾 · 01/12/25 14:03

>>3

>HNS とか TDS
の HNS ってなに？

**名無しさん＠お腹いっぱい。** · 01/12/25 14:18

>>4
HNS
http://www.h14m.org/

TDS
http://tds.dive-in.to/

**名無しさん＠お腹いっぱい。** · 01/12/25 14:32

Rubyを使え

-------------------------終了--------------------------

**名無しさん＠お腹いっぱい。** · 01/12/25 14:34

もっと遅くなるだけだろ。

**名無しさん＠お腹いっぱい。** · 01/12/25 14:35

Cを使え

-------------------------終了--------------------------

**名無しさん＠お腹いっぱい。** · 01/12/25 14:38

CGI.pm の話してるのになんで Ruby が出てくるのか意味不明。
Ruby は Perl のモジュールでも読み込めるようになったのかね。

**出来るような...** · 01/12/25 14:39

CGI.pm の話してるのになんで C が出てくるのか意味不明。
C は Perl のモジュールでも読み込めるようになったのかね。

**名無しさん＠お腹いっぱい。** · 01/12/25 14:39

>>9
そっとしてやんなよ。荒れてんだよ、クリスマスだから。

**名無しさん＠お腹いっぱい。** · 01/12/25 14:39

つくったらそれをどうするの？
まさか公開しないなんて言わないよね？

**名無しさん＠お腹いっぱい。** · 01/12/25 14:40

Perlを使え

-------------------------終了--------------------------

**名無しさん＠お腹いっぱい。** · 01/12/25 14:46

モジュールなんぞ使うな

-------------------------再開--------------------------

**名無しさん＠お腹いっぱい。** · 01/12/25 14:51

>>14
実際問題として、query 切り出すだけだったらモジュール使う必要ないんだよね。
ヘッダ出力するのだって別にCGI.pm のお世話にならんでもいいだろうし。

CGI.pm だと、 mod_perl で動く可能性があるとか
それなりに色々メリットはあるんだけども。

**名無しさん＠お腹いっぱい。** · 01/12/25 14:58

CGI.pmになれると、正直、わざわざ
決まりきったルーチンを書くのが面倒。

実行速度よりも、おれがスクリプトを書く速度の方が大事(^^;

**名無しさん＠お腹いっぱい。** · 01/12/25 15:04

>>16

決まり切っているのならコピペでいいじゃない。

**名無しさん＠お腹いっぱい。** · 01/12/25 15:28

とりあえずこんなかんじでいいのかな？

if( $ENV{'REQUEST_METHOD'} eq "POST" ){
read( STDIN, $argv, $ENV{'CONTENT_LENGTH'} );
@pairs =split( /&/, $argv );
}elsif( $ENV{'REQUEST_METHOD'} eq "GET" ){
@pairs =split( /&/, $ENV{'QUERY_STRING'} );
}else{
@pairs =@ARGV;
}

foreach( @pairs ){
( $key, $value ) =split( /=/ );

$key =~tr/+/ /;
$key =~s/%([a-fA-F0-9][a-fA-F0-9])/pack( "C", hex( $1 ) )/eg;

$value =~tr/+/ /;
$value =~s/%([a-fA-F0-9][a-fA-F0-9])/pack( "C", hex( $1 ) )/eg;

# $key =Jcode->new( $key )->h2z->euc;
# $value =Jcode->new( $value )->h2z->euc;

$param{$name}=$value;
}

**名無しさん＠お腹いっぱい。** · 01/12/25 15:29

>>16
で、CGI.pm は遅いから、もうちょっと軽くて渋いのを作らんかねって話だよね。

**名無しさん＠お腹いっぱい。** · 01/12/25 15:37

>>18
大崎氏のPerlメモによると
$value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
のが速いらしい。

**名無しさん＠お腹いっぱい。** · 01/12/25 15:56

CGI_Lite.pmでいいじゃん、と。

**名無しさん＠お腹いっぱい。** · 01/12/25 16:29

CGI.pmがフォームのデコードだけと思ってるのが面白い。(210KBも詰め込んでるのに････)
答え2で出てるんじゃん、OO辞めて展開して自分で組み合わせれば?
分からなかったらplの方が若干簡単かも

**名無しさん＠お腹いっぱい。** · 01/12/25 16:52

>>22
実際、フォームのデコードだけしかしないのに、
余計な部分が読みこまれるのがうっとおしいわけじゃない。

もっと中身がバラバラだったら必要なのだけ取り込めたのに。
ソースをリッピングすることなく。

use CGI::FormParser; とかさ。

なんで 210KB にもなるまで一個のファイルに詰め込んだのかしらん。

**名無しさん＠お腹いっぱい。** · 01/12/25 17:13

まあ、一応あれで基本だけまとめてるんじゃ無いかな? cookieとかは別だし
実際、そこまで気になるなら、普通のBBS何かで使うならcgi-lib分解して適当に使った方が
ずっと軽くて良いんじゃない?
そんな使い方しかしてないのも良く有るし。。。
これは激しく出力内容が変わったり、仕様変更が頻繁になった時に強度が有る
って代物だから、書ききりだったらサブルーチンで十分と思う。

**名無しさん＠お腹いっぱい。** · 01/12/25 17:33

CGI.pm VERSION 3 は新規一転書き直しで早いらしいぞ。
ロードは確かに早い。

とはいえQUERY抽出だけを切り離したCGI::Queryは欲しいな。
誰か作るならPHASHベースきぼんぬ。

**名無しさん＠お腹いっぱい。** · 01/12/25 17:39

>>25
PHASH ってなんですか？

**名無しさん＠お腹いっぱい。** · 01/12/25 17:45

Pointer to hash
つか
Reference to hash?
かなりてきとー

**名無しさん＠お腹いっぱい。** · 01/12/25 18:00

pseudo hash だろ

**名無しさん＠お腹いっぱい。** · 01/12/25 18:14

>>28
http://www.melma.com/mag/85/m00014785/a00000004.html
で発見しました。
なるほどー。

$foo = [{foo=>1, bar=>2}, 'FOO','BAR'];

print $foo->[1]; # FOO
print $foo->{foo}; # FOO
print $foo->[2]; # BAR
print $foo->{bar}; # BAR

こんなのがあったなんてしらなかった....

**名無しさん＠お腹いっぱい。** · 01/12/25 20:09

ちょいまち。pseudo hashは無くなる方向じゃなかったか？

**名無しさん＠お腹いっぱい。** · 01/12/25 20:10

うるせえ死ね。
お前等ゴミ屑は一体何の為に生きてるんだよ。
誰からも必要とされてないくせに偉そうな顔して
街を歩くなデブヲタの分際で。いい加減にしてくたばれよ。

**名無しさん＠お腹いっぱい。** · 01/12/25 20:12

こんなこと言っても貴様等チンカスには全く理解できないのだろうがな。
君達みたいなチンカスがこの地球上に存在してると思うだけでも反吐が出るんだよ。
早く死んでほしいんだよな。この文章を読んでいるゴミ屑ども、すぐに首を吊りなさい。お死になさい。生きてる価値無いんだから。

**名無しさん＠お腹いっぱい。** · 01/12/25 20:13

>>31は自分で自分の外出禁止令を出して何が楽しいのでしょうか？