探検
もっと軽くて渋いCGI.pmを創ろう
（・-・）すうろぅ （・-・）
>HNS とか TDS
の HNS ってなに？
HNS
http://www.h14m.org/
TDS
http://tds.dive-in.to/
-------------------------終了--------------------------
-------------------------終了--------------------------
Ruby は Perl のモジュールでも読み込めるようになったのかね。
C は Perl のモジュールでも読み込めるようになったのかね。
そっとしてやんなよ。荒れてんだよ、クリスマスだから。
まさか公開しないなんて言わないよね？
-------------------------終了--------------------------
-------------------------再開--------------------------
実際問題として、query 切り出すだけだったらモジュール使う必要ないんだよね。
ヘッダ出力するのだって別にCGI.pm のお世話にならんでもいいだろうし。
CGI.pm だと、 mod_perl で動く可能性があるとか
それなりに色々メリットはあるんだけども。
決まりきったルーチンを書くのが面倒。
実行速度よりも、おれがスクリプトを書く速度の方が大事(^^;
決まり切っているのならコピペでいいじゃない。
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;
}
で、CGI.pm は遅いから、もうちょっと軽くて渋いのを作らんかねって話だよね。
大崎氏のPerlメモによると
$value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
のが速いらしい。
答え2で出てるんじゃん、OO辞めて展開して自分で組み合わせれば?
分からなかったらplの方が若干簡単かも
実際、フォームのデコードだけしかしないのに、
余計な部分が読みこまれるのがうっとおしいわけじゃない。
もっと中身がバラバラだったら必要なのだけ取り込めたのに。
ソースをリッピングすることなく。
use CGI::FormParser; とかさ。
なんで 210KB にもなるまで一個のファイルに詰め込んだのかしらん。
実際、そこまで気になるなら、普通のBBS何かで使うならcgi-lib分解して適当に使った方が
ずっと軽くて良いんじゃない?
そんな使い方しかしてないのも良く有るし。。。
これは激しく出力内容が変わったり、仕様変更が頻繁になった時に強度が有る
って代物だから、書ききりだったらサブルーチンで十分と思う。
ロードは確かに早い。
とはいえQUERY抽出だけを切り離したCGI::Queryは欲しいな。
誰か作るならPHASHベースきぼんぬ。
PHASH ってなんですか？
つか
Reference to hash?
かなりてきとー
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
こんなのがあったなんてしらなかった....
お前等ゴミ屑は一体何の為に生きてるんだよ。
誰からも必要とされてないくせに偉そうな顔して
街を歩くなデブヲタの分際で。いい加減にしてくたばれよ。
君達みたいなチンカスがこの地球上に存在してると思うだけでも反吐が出るんだよ。
早く死んでほしいんだよな。この文章を読んでいるゴミ屑ども、すぐに首を吊りなさい。お死になさい。生きてる価値無いんだから。
気にせず行きましょう。
Perl6で無くなるんだっけ？
でも利点が多いんで使いたいのだ。
・ただのハッシュよりはコンパクト
・条件付で高速なアクセス
・フィールド継承のサポート
sub get_full_query {
my $self = shift;
my $str = "";
$ENV{CONTENT_LENGTH} and read(STDIN, $str, $ENV{CONTENT_LENGTH});
$ENV{QUERY_STRING} and $str .= $ENV{QUERY_STRING};
my $query;
for (split /&/, $str) {
my ($name, $value) = map $self->url_decode($_), split /=/, $_;
push @{$$query{$name}}, $value;
}
$self->{_query} = $query;
}
sub url_decode {
my $self = shift;
my $part = shift;
$part =~ tr/+/ /;
$part =~ s/%([0-9A-Fa-f]{2})/pack("c", hex($1))/ges;
$part;
}
CGI::Minimalとかどうよ？
漏れは使ったこと無いが。
使える機能
・フォームのデコード
・アップロードの処理
・url エンコード・デコード
・< とか > とか & のエスケープ、
・RFC1123形式の時間表示
シンプルでよさげ。
クッキー周りを自分で書くなら、これいいかも。
CGI->fileprint("FormName");
みたいに出来ないと精神的にかなり嫌だ
これのほうが速くない？
-checked=>'checked', # この行
-value=>'on',
-label=>'Turn me on');
とやると
<input type="checkbox" name="checkbox_name" value="on" checked>
みたいになるけど デフォルトでcheckedさせないようにするにはどうすればいいのかな?
#つまりは
-checked=>'checked',
#この行があってもなくてもデフォルトでcheckedになってしまうのでそれを何
#とかしたい
ひどすぎるそれ。
2次配布禁止ってなってるけど、それで正解だ。
むご過ぎて、2次配布する価値無しだ。
strictなコードで書いてほしい・・・
cgi-lib.plと同じじゃないかそれじゃ
といっても最近はCGI.pm使うようになっちゃったからなぁ
無用だね
Cookieの送受信に便利なPerlライブラリ
泣けるなぁ・・
http://bulknews.net/lib/slides/perl-ruby-con2000/
（ ＾＾ ）＜ ぬるぽ（＾＾）
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
（ ＾＾ ）＜ ぬるぽ（＾＾）
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
. ||
. ||
. ☆ノハヽθ ＿＿＿＿＿＿
||ﾉﾉ*＾ｰ＾) ｱｰﾃｽﾃｽ (:::) .／|
|| / つと ||||. .／ . |
|二 ／ [] . ￣ . ／ ／
|￣￣￣￣￣￣| . ／
|＿＿＿＿＿＿|／
. Y￣￣⌒⌒⌒⌒￣￣~`ヽ
＼＼※※※※※※※ ＼
. .＼＼※※※※※※※ ＼
＼＼※※ 〆〃ハハ ～♪
＼ヽ γ∬∬´▽｀)※ . ＼
. ヽ(~~~~~~∪~~∪~~~~~~~~)
￣￣￣￣￣￣￣￣￣
＿＿＿＿
. ／ ／ | | ＼ ｱｰﾃｽﾃｽ… ／
|二二| ｜ | ww
. ＼ ＼ | | ＿＿＿＿./
|￣￣￣￣￣￣| |囲 ＝ 囲|
￣￣￣￣
. ☆ノハヽ ﾖｼ!!
. ﾉﾉ*＾ｰ＾) ||| |◎▼
/ つと （ 99 ::）
⊂＿)__) （ [] ）))
. ￣￣￣
||◎▼☆ノハヽ ｼｭｯﾊﾟｰﾂ!!
（ 99 ﾉﾉ*＾ｰ＾)o
（ [] ）)) /
. .￣￣￣ u─ｕ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,＿＿_,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;__, . | □ |;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;□| | |___| □ |＿＿|;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;| |[]| || □ | |;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;／ ＼;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;／ ＼;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;／ ＼;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;／ . ＼;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;／ |||◎◎/ ＼;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;／ . （======） ﾄｵｲ… . ＼;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;／ （＿＿＿）] . ＼;;;;;;;;;;;;;;;
;;;;;;;;／ u─ｕ ＼;;;;;;;;
||◎▼☆ノハヽ ﾊｲ､ﾐｶﾝﾃﾞｽ . . ノノハヽ ﾅﾝﾃﾞｳﾁｼｯﾃﾝﾉ…
（ 99 ﾉﾉ*＾ｰ＾) (＇v＇;从_
（ [] ）)), つ(::::) ~~~-⊂ ,-、）/
. .￣￣￣ u─ｕ . (つ し' /
| . | | |
──|── . | ／￣|￣＼ | |
| |/ .| | . .| |
＼ . ＿_|＿_／.. . ...| |
＼ . ＼ / . . 〇 〇. ／
＼ . . ／
＼ ｷｲﾃﾙ?ﾔｯﾎｰ!! .／
＼ ｴﾘﾉﾎｳｶﾞｶﾜry .／
ww . . oノハヽo ﾋﾞｯｸﾘｼﾀﾉ…
. 山 Σ(･ ｡.･*;从
|￣||￣￣||￣| / つつ
|◎||■--||◎| ヽ_）_)´
. ￣ .￣￣ .￣
. ドッカ～ン！！
. . γ''⌒⌒⌒ヽ
(⌒;;;;⌒ ;;;;; ⌒)
. ( (⌒;;;;; );;;;;) oノハヽo
（;;;;（ ;;;;; ） ） (･ ｡.･+从
( (;;;;;;; ;;;;; ) ;;;;;.) . /. 0T0 ｶﾞｼｬ!!
. ｀ゞ ､,,;; ;;;;; ;;;,,ノ''" u─|￣|
. | . ;;;;;;;;;;;| . . . .｜ ;;;;|
. | ;;;;;;;;;;| . . ハロプロショップ . ｜ ;;;;|
. | . ;;;;;;;;;;;|. . . . ｜ ;;;;|
. | ;;;;;;;;;;| ＿＿＿＿＿＿＿＿ | き ;;;;;|
. | . ;;;;;;;;;;;| || . | .|| .｜ みて ;;;;;|
. | ;;;;;;;;;;| || . | .|| .｜. た ／|
. | ;／| || 0|0ノハヽ☆ . . ｜. で ／;;;;｜
. | . ／ ;;;;| || ノﾉﾉﾍ(＾ｰ＾*从||. ｜. ／ ...└─
＿＿＿＿_|／. |.._..＿||＿(゜皿 ゜ 川 ）_||＿＿＿_|／
（ つ
ヽ/ /
. . (___/Ｊ
／ i
/ , . |
| ＪVし __,,..-一､ | __
L__ _,,...ﾆｧＴ ||::::::::::::| / ,.‐'´／
| |_>ｰ＜＿__/ |. lj:::::::::∠-一´／ /
｀/＿__,..-ﾆ',７ Ｔ´,.-‐'´ ／ _,./..,すぐにあの世に送ってやるぜ
'┬─'´ // _／:ヽ‐ﾆｰ--‐ｼ'￣ ＼
|l＿__//／:::::::::::::::/i. |l |
｀`ﾆ- ´i':::::::::::::::::/ |l. |
http://www.nihongo.org/snowhare/utilities/modules/cgi-minimal/
CGI.pm (3.05) via standard CGI - 16 fetches per second
CGI::Simple (0.075) via standard CGI - 20 fetches per second
CGI::Deurl (1.08) via standard CGI - 36 fetches per second
CGI::Thin (0.52) via standard CGI - 38 fetches per second
CGI::Lite (2.02) via standard CGI - 52 fetches per second
CGI::Minimal (1.16, :preload) via standard CGI - 52 fetches per second
CGI::Minimal (1.16) via standard CGI - 66 fetches per second
cgi-lib.pl (2.18) via standard CGI - 71 fetches per second
null Perl script via standard CGI - 103 fetches per second
null C program via standard CGI - 174 fetches per second
CGI::Simple (0.075) via mod_perl - 381 fetches per second
CGI.pm (3.05) via mod_perl - 386 fetches per second
CGI::Minimal (1.16) via mod_perl - 417 fetches per second
null Perl script via mod_perl - 500 fetches per second
都合悪くなるとすぐ CGI::Minimal なんだからｗ
ここに声高らかに宣言する。
釣れた
と(´ﾟc_,ﾟ` )
悪いがちょっと意味わからんので説明してくれ・・・
何につられたのかもようわからんｗ
0083 忍法帖【Lv=40,xxxPT】(1+0：8) 【24m】 電脳プリオン ◆3YKmpu7JR7Ic 垢版
2012/10/14(日) 12:33:52.21ID:????PLT(12079)∧＿∧
（ ・∀・） | | ｶﾞｶﾞｯ
と ） | |
Ｙ /ノ .人
/ ） .人 < >_∧∩
＿/し' < >_∧∩｀Д´）/
（＿フ彡 Ｖ｀Д´）/ / ←>>58
/ ←>>62
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
8SOYCJA088
8CZYB
レスを投稿する
ニュース
- 【文春】M-1王者コンビ「ウエストランド」河本太、タクシー運転手に暴行トラブル「腕に噛みつき、前歯が欠け…」 [Anonymous★]
- 【鉄道】女性「電車で隣に座ってくる男キモい」SNS“炎上”…男女で《賛否》真っ二つ、それぞれの言い分とは [ぐれ★]
- 【三重】保健室に来た男子中学生を抱きしめたりキスをしたり…２７歳女性養護教諭を懲戒免職 [シャチ★]
- 【鉄道】女性「電車で隣に座ってくる男キモい」SNS“炎上”…男女で《賛否》真っ二つ、それぞれの言い分とは ★2 [ぐれ★]
- 【文春】「相合い傘で自宅マンションへ…」内田理央と人気YouTuberヒカルの寿司デート＆お泊まり愛“スクープ撮 [Ailuropoda melanoleuca★]
- 『平和堂』公式X、いなり寿司誤認逮捕事件「いなりずしを渡した知人もダメ」投稿2件に「いいね」 「誤った操作」と陳謝 [Hitzeschleier★]
- 【実況】博衣こよりと周防パトラのドキドキたこパ🧪 ★2
- 【実況】博衣こよりと周防パトラのドキドキたこパ🧪
- 【速報】ベジタリアンが苦痛を与えるのは同意するだろうね
- お前らのズボンの上からおちんちんさわさわ
- 【悲報】AV業界人「レズNGの女優さんが多すぎ、スカトロOKの女優さんのほうが遥かに多い」 [765383483]
- 【悲報】DLsite、クレカ決済が使えなくなり売上がヤバイぐらい下がる [637618824]