Perl ソスソス CGI |
| CGIソスXソスNソスソスソスvソスgソスフ仕ソスgソスソス |
|
- CGIソスヘ、UNIXソスソスナ難ソスソスすソス骭セソスソスネら何ソスソスソスgソスソスソスト作成ソスソスソストゑソスソスソスソスワゑソスソスワゑソスソスが、
Cソスソスソスソスナはサソス[ソスoソスソスOSソスソスソスニにコソスソスソスpソスCソスソス(ソス@ソスBソス皷サ)ソスソスソスソスKソスvソスソスソスソスソスソスA
ソスソスxソスRソスソスソスpソスCソスソスソスソスソストゑソスソスワゑソスソスニ変更ソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスソスB
ソスソスソスフサソスCソスgソスソスソス逍ウソスソスソスナダソスEソスソスソスソスソス[ソスhソスソスソストゑソスソスソスソスソスソスソスソスナは会ソスソスソスソスマ更ソスナゑソスソスワゑソスソスソスB
Cソスフソソス[ソスXソスソスソスソスソスJソスソスソスソスソスソス@ソスソスソスソスソスソスワゑソスソスソスソスAソスソスソスソスヘまゑソスソスソスソスナ、ソスソスソスソスソスソスxCソスフ知ソスソスソスソスソスKソスvソスネゑソスソスソスソスナなゑソスソスA
ソスRソスソスソスpソスCソスソスソスソスソスKソスvソスノなゑソスワゑソスソスB ソスソスソスソスソスフ厄ソスソスソスソスソスソスラてカソスoソス[ソスソスソストゑソスソスソスソスフゑソスPerl(ソスネ会ソスPerlソスAソスpソス[ソスソスソスニ読ゑソス)ソスソスソスソスナゑソスソスB
Perlソスヘ、ソスeソスLソスXソスgソスxソス[ソスXソスナ難ソスソスすソスソスRソスソスソスpソスCソスソスソスソスソスソスナゑソスソスフで、ソス成ソスソスソスソスフはテソスLソスXソスgソスtソス@ソスCソスソスソスソスソスソスソスナゑソスソスB
ソスソスソスフテソスLソスXソスgソスyソス[ソスWソスノアソスNソスZソスXソスソスソスソスソスソスソスPerlソスソスソスソスソスソスソスナコソスソスソスpソスCソスソスソスソスソスト趣ソスソスsソスソスソスソスワゑソスソスB
ソスソスソスソスソスソスソスAPerlソスヘ、Cソスソスソスソスフ抵ソスソスソスソスソスBASICソスフ抵ソスソスソスソスソスソスソスソスせソスソスソスツ搾ソスソスソスソスソスソスソスネのでゑソスソスB
ソスソスソスソスソスフ暦ソスソスRソスソスソス迪サソスソスCGIソスニゑソスソスト撰ソスソスEソスソスソスナ最ゑソスソスgソスpソスソスソスソストゑソスソスソスフゑソスPerlソスナゑソスソスB
ソス{ソスTソスCソスgソスヘ、ソスソスソスラゑソスPerlソスナ作成ソスソスソスソスCGIソスソスソスソスソスソスソスソストゑソスソスワゑソスソスB
ソスソスソスソスナは、Perlソスソスソス黷ェソスソスソスソスソスナゑソスソスソスソスCGIソスヘ作成ソスナゑソスソス驍ゥソスニ鯉ソスソスソスソスホ、ソスソスソスソスソスソスNOソスナゑソスソスB
Perlソスヘイソスソスソス^ソス[ソスlソスbソスgソスナ最ゑソスソスgソスpソスソスソスソストゑソスソスソスJソスソスソスソスソスソスナゑソスソスソスソスA
Perlソスソスソスフゑソスソスフはイソスソスソス^ソス[ソスlソスbソスgソスフ為に開ソスソスソスソスソス黷スソスソスソスソスナゑソスソスネゑソスソスソスホ、CGIソスフ為に開ソスソスソスソスソス黷スソスソスソスソスナゑソスソスソスソスソスワゑソスソスソスB
ソス{ソスソスソスAソスソスソス|ソス[ソスgソスソスソス成ソスソスソスソスラの鯉ソスソスソスニゑソスソスト開ソスソスソスソスソス黷スソスhソスLソスソスソスソスソスソスソスgソスLソスqソスソスソスソスナ、
Perlソスソスソスソスソスフ知ソスソスソスナゑソスCGIソスソスソスJソスソスソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスソスB
ソスソスソスソスソスソスソスネゑソスソスソスAソスKソスソスWebソスTソス[ソスoソスノは環具ソスソスマ撰ソスソスニゑソスソスソスCGIソスノとゑソスソスト都ソスソスソスフゑソスソスソスソス纒ィソスソスソスソスソスンゑソスソスワゑソスソスB
Perlソスヘ、ソスソスソスフ環具ソスソスマ撰ソスソスニ鯉ソスソスソスソスgソスン搾ソスソスせソス骼厄ソスソスCGIソスソスソスソスソスソスソスソスソスワゑソスソスB
|
| ソスソスネ環具ソスソスマ撰ソス |
|
- ソスKソスソスメに関ゑソスソスソスソスソス
REMOTE_HOST |
ソスKソスソスメのホソスXソスgソスソスソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスBソスソスソスソスソスZソスbソスgソスソスソスソストゑソスソスネゑソスソス鼾ソスソスA
ソスhソスoソスAソスhソスソスソスXソスソスソスZソスbソスgソスソスソスソストゑソスソスソス鼾ソスヘ、ソスhソスソスソスCソスソスソスマ奇ソスソスソスソス[ソス`ソスソスソスソスソスgソスソスソスト変奇ソスソスナゑソスソスワゑソスソスB
|
REMOTE_ADDR |
ソスKソスソスメのIソスoソスAソスhソスソスソスXソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスB |
REMOTE_USER |
ソスソスソス[ソスUソス[ソスFソスリサソス[ソスoソスナ、ソスロ鯉ソスfソスBソスソスソスNソスgソスソスソスソスソスノプソスソスソスOソスソスソスソスソスソスソスソスソスソス鼾ソスA
ソスFソスリソスソス[ソスUソスソスソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスBソスルとゑソスヌのプソスソスソスoソスCソス_ソスナは会ソスソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスソスB
|
HTTP_USER_AGENT |
ソスKソスソスメのブソスソスソスEソスUソスソスソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスB |
HTTP_ACCEPT |
ソスKソスソスメのブソスソスソスEソスUソスソスソスTソス|ソス[ソスgソスソスソスソスlソスhソスlソスdソス^ソスCソスvソスフソスソスXソスgソスソスソスZソスbソスgソスソスソスソスワゑソスソスB |
HTTP_REFERER |
ソスKソスソスメゑソスソスソスソスソスソスソスソス逞茨ソスソスソスソスソスAソスQソスニ鯉ソスソスフ奇ソスソスSソスネアソスhソスソスソスXソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスB
ソスiソスuソスbソスNソス}ソス[ソスNソスソスAソスソスソスレアソスhソスソスソスXソスソスソスソスソスヘゑソスソス黷スソス鼾ソスヘ会ソスソスソスソスZソスbソスgソスソスソスソスネゑソスソスj
ソスソスソスンではプソスソスソスCソスoソスVソス[ソスロ鯉ソスフ為、ソスルとゑソスヌ取得ソスナゑソスソスネゑソスソスB
|
|
- ソスTソス[ソスoソスノ関ゑソスソスソスソスソス
SERVER_NAME |
ソスTソス[ソスoソスフドソスソスソスCソスソスソスソスソスソスソスAソスTソス[ソスoソスフIソスoソスAソスhソスソスソスXソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスB |
SERVER_ADMIN |
ソスTソス[ソスoソスヌ暦ソスソスメのソスソス[ソスソスソスAソスhソスソスソスXソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスB
ソスiソスソスマ忙ソスソスソスソスソスソスソスXソスナゑソスソスBソズゑソスンにソスソス[ソスソスソスソスソスoソスソスソスフは控ソスソスソスワゑソスソス蛯、ソスBソスj
|
SERVER_SOFTWARE |
ソスvソスソスソスソスソスTソス[ソスoソスフソソスtソスgソスEソスFソスAソスフ厄ソスソスOソスニ、ソスoソス[ソスWソスソスソスソスソスソスソスZソスbソスgソスソスソスソスワゑソスソスB |
GATEWAY_INTERFACE |
ソスTソス[ソスoソスソスナ趣ソスソスsソスソスソスソストゑソスソスソスbソスfソスhソスフバソス[ソスWソスソスソスソスソスソスソスZソスbソスgソスソスソスソスワゑソスソスB |
DOCUMENT_ROOT |
ソスTソス[ソスoソスフドソスLソスソスソスソスソスソスソスgソスソスソス[ソスgソスfソスBソスソスソスNソスgソスソスソスフパソスXソスソスソスZソスbソスgソスソスソスソスワゑソスソスB |
SERVER_PROTOCOL |
ソスTソス[ソスoソスヨのアソスNソスZソスXソスノ使ソスpソスソスソス黷スソスvソスソスソスgソスRソスソスソスフ厄ソスソスOソスニバソス[ソスWソスソスソスソスソスソスソスZソスbソスgソスソスソスソスワゑソスソスB |
SCRIPT_NAME |
ソスソスソスン趣ソスソスsソスソスソスソストゑソスソスソスXソスNソスソスソスvソスgソスフ托ソスソスホパソスXソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスB |
|
- ソスtソスHソス[ソスソスソスニクソスbソスLソス[ソスノ関ゑソスソスソスソスソス
REQUEST_METHOD |
<form>ソス^ソスOソスソスmethodソスAソスgソスソスソスrソスソスソス[ソスgソスソスソスヤゑソスソスソスワゑソスソスB'GET' / 'POST' |
CONTENT_LENGTH |
POSTソスNソスGソスソスソス[ソスノゑソス闡暦ソスソスソストゑソスソスソスソスソスソスソスソスソスソスソスソスoソスCソスgソスPソスハで格ソス[ソスソスソスソストゑソスソスワゑソスソスB |
QUERY_STRING |
GETソスNソスGソスソスソス[ソスノゑソス闡暦ソスソスソストゑソスソスソスソスtソスHソス[ソスソスソスソスソスソスフデソス[ソス^ソスソスソスiソス[ソスソスソスソストゑソスソスワゑソスソスB |
HTTP_COOKIE |
ソスKソスソスメのブソスソスソスEソスUソスノセソスbソスgソスソスソスソスA ソスTソス[ソスoソスソスソスソスAソスNソスZソスXソスナゑソスソスソスCOOKIEソスフ値ソスソスソスZソスbソスgソスソスソスソストゑソスソスワゑソスソスB |
|
ソスツ具ソスソスマ撰ソスソスソス$ENV{'ソスツ具ソスソスマ撰ソスソスソス'}ソスナ簡単ソスノ取得ソスナゑソスソスワゑソスソスB
ソスソスソスニゑソスソスホ、ソスKソスソスメゑソスソスgソスpソスソスソストゑソスソスソスuソスソスソスEソスUソスソスmソスソスノゑソス$ENV{'HTTP_USER_AGENT'}ソス調べまゑソスソスB
|
| ソスソスソスソスソスン抵ソス |
|
- perlソスXソスNソスソスソスvソスgソスフ最擾ソスソスフ行ソスノは、
#!usr/local/bin/perl
ソスフようソスソスperlソスソスソスソスソスンゑソスソスソスpソスXソスソスソスソスソスソスソスKソスvソスソスソスソスソスソスワゑソスソスB
ソスPソスsソスレゑソスソス白行ソスナゑソスソスAソス謫ェソスノスソスyソス[ソスXソスソスソスソスソスソスソストゑソスソスGソスソスソス[ソスノなゑソスワゑソスソスB
ソスソスソスソスソスソスUNIXソスTソス[ソスoソスナは、#!usr/local/bin/perlソスノ置ソスソスソスソスAソス゚年ソス謔ュソスgソスpソスソスソスソスソス謔、ソスノなゑソスソスソスLinuxソスナは、
#!usr/bin/perlソスノ設定さソスソストゑソスソスワゑソスソスB
Windowsソスフソスソス[ソスJソスソスソスTソス[ソスoソスナは必ソスvソスネゑソスソスソスソスソスソスソスソスソスワゑソスソスフで、
ソスソスソス[ソスJソスソスソスナ厄ソスソスネゑソスソスソスソスしソストゑソスソスソスbソスfソスhソスソスソスTソス[ソスoソスノアソスbソスvソスソスソスソスニエソスソスソス[ソスノなゑソス鼾ソスフほとゑソスヌゑソスソスA
ソスソスソスソスperlソスフパソスXソスノ鯉ソスソスソスソスソスソスソスソスソスワゑソスソスB
(WindowsソスナゑソスWebソスTソス[ソスoソスソスApachiソスソスソスgソスpソスソスソストゑソスソスソス鼾ソスヘ必ソスv)
|
| ソスソスソスソスソスソス |
|
- ソスOソスqソスフとゑソスソスソスperlソスフ先頭ソスsソスノゑソスperlソスフパソスXソスソスソスLソスqソスソスソスソスKソスvソスソスソスソスソスソスワゑソスソスB
ソスQソスsソスレ以降ソスAソスソスソスCソスソスソスソスソス[ソス`ソスソスソスワでの前ソスソスソスノは挿ソスソスソスソスソス驛会ソスCソスuソスソスソスソスソスA
ソスツ具ソスソスマ撰ソスソスソスソスワめゑソスソスソスソスソスツ具ソスソスソスン定すソスソスマ撰ソスソスソスソスソスソスソスソスソス(ソスlソスフ托ソスソス)ソスソスソスソスRソス[ソスhソスソスuソスソスソスフゑソスソスソスハ的ソスナゑソスソスB
#ソスソスソス{ソスソスRソス[ソスhソスマ奇ソスソスソスソスWソスソスソス[ソスソス
require 'jcode.pl';
ソスソスソスソスヘ、ソスソスソスソスソスソスソスソスソス{ソスソスRソス[ソスhソスノ変奇ソスソスソスソス驛会ソスCソスuソスソスソスソスソスソスヌみ搾ソスソスソスナゑソスソスワゑソスソスB
- ソスソスソスtソスフ設抵ソス
ソスソスソスEソスソスソスフサソス[ソスoソスソスソスソスソスRソスノ托ソスソスソスナゑソスソス骼厄ソスAソスソスソス黷ェソスCソスソスソス^ソス[ソスlソスbソスgソスフ最托ソスフ難ソスソスソスソスナゑソスソスB
ソスソスソス{ソスソスフペソス[ソスWソスナゑソスソスOソスソスソスフサソス[ソスoソスノ置ソスソスソスソストゑソスソスソスTソスCソスgソスソスソスソスマ托ソスソスソスソスフでゑソスソスB
ソスソスソスソスソスナ厄ソスソスノなゑソスフゑソスソスソスソスソスソスナゑソスソスBperlソスノは環具ソスソスマ撰ソスソス操作しソスト趣ソスソスソスソスソスソスCソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
$ENV{'TZ'} = "JST-9";
$DATE = time;
ソスソスソスソスヘ、ソスツ具ソスソスマ撰ソス$ENV{'TZ'}ソスソスソスロ標ソスソスソスソスソスヤに9ソスソスソスヤプソスソスソスXソスソスソスト難ソスソス{ソスソスソスヤにゑソスソストシソスソスソスAソスソスソスlソスソスソス謫セソスソスソストゑソスソスワゑソスソスB
ソスソスソスソスソスソスソスネゑソスソスソスTソス[ソスoソスフ抵ソスソスノゑソス$ENV{'TZ'}ソスツ具ソスソスマ撰ソスソスソスソス@ソス\ソスソスソスネゑソスソスソスソスフゑソスソスソスソスソスワゑソスソスB
ソスソスソスフようソスネ場合ソスソスzソス閧オソストゑソスソスラての趣ソスソスソスソス世界ソスWソスソスソスソスソスソスZソスoソスソスソストゑソスソスソスソスホ厄ソスソスネゑソスソスソスソスさソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
$timelag = 9;
$ENV{'TZ'} = "GMT";
$DATE = time + $timelag * 3600;
|
| ソスNソスbソスLソス[ |
|
- ソスハ擾ソスソスCGIソスナはデソス[ソス^ソスソスソスTソス[ソスoソスノ保托ソスソスソスソスワゑソスソスソスソスAソスソスソスソスソスフ擾ソスソスヘゑソスソスラての訪ソスソスメに具ソスソスハに使ソスpソスソスソスソスA
ソスKソスソスメゑソスソスニに記ソスソスソスソスソスソス驍アソスニはゑソスソスソスワゑソスソスソスB
ソスソスソスニゑソスソスト訪ソスソスメゑソスソスニに保托ソスソスソスソストゑソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスソスニゑソスソスホ、ソスCソスソスソス^ソス[ソスlソスbソスgソス利用ソスソスソスソスソスハ信ソスフ費ソスソスナは訪ソスソスメゑソスソスニに購ソスソスソスソスソス謔、ソスニゑソスソス髀、ソスiソスソスソスルなゑソスワゑソスソスB
ソスソスソスソスソスソスソスfソス[ソス^ソスtソス@ソスCソスソスソスノ保托ソスソスソスソス驍アソスニはでゑソスソスワゑソスソスソスBソスソスソスフようソスネ個人ソスソスソスソスソス齊橸ソスIソスノ記ソスソスソスソスソスソスソスソス@ソス\ソスソスソスNソスbソスLソス[ソスナゑソスソスB
ソスNソスbソスLソス[ソスヘ訪ソスソスメの擾ソスソスソスソスTソス[ソスoソスソスソスKソスソスメのブソスソスソスEソスUソスノ擾ソスソスソスソスソスソズ趣ソスソスナ趣ソスソスソスソスソスソストゑソスソスワゑソスソスB
- ソスNソスbソスLソス[ソスフ擾ソスソスソス
ソスNソスbソスLソス[ソスノデソス[ソス^ソスソスロ托ソスソスソスソスソスノは「Set-Cookieソスvソスwソスbソス_ソス[ソスソスソスgソスpソスソスソスワゑソスソスB
Print "Set-Cookie:ソスNソスbソスLソス[ソスフ厄ソスソスソス = ソスロ托ソスソスソスソスソスfソス[ソス^ ; expires = ソスロ托ソスソスソスソスソス \n";
- ソスNソスbソスLソス[ソスフ厄ソスソスソス
ソスソスソスフは英ソスソスソスソスソスナ趣ソスソスRソスノ付ソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスBソスソスソスソスCGIソスXソスNソスソスソスvソスgソスニ重ソスソスソスソスソスネゑソスソスソスソスニゑソスソスソスソスノは気ソスソスソスツゑソスソスソスKソスvソスソスソスソスソスソスワゑソスソスB
- ソスロ托ソスソスソスソスソスfソス[ソス^
ソスロ托ソスソスソスソスソスfソス[ソス^ソスソスソスvソスソスソスOソスソスソス}ソスソスソスソスソスRソスノ作成ソスナゑソスソスワゑソスソスBソスMソスメの場合ソスヘ包ソスソスソスソスソスソス竄キソスソスソス謔、ソスソス
Key!ソスl, Key!ソスl, Key!ソスl, Key!ソスl, Key!ソスl
ソスニゑソスソスソスソスソスソスソスソスナ記ソス^ソスソスソストゑソスソスワゑソスソスB
ソスソスソス黷シソスソスフ搾ソスソスレゑソス","ソスナ具ソスリゑソスAソスLソス[ソスニ値ソスヘ通常あソスワゑソスgソスpソスソスソスネゑソス"!"ソスナ具ソスリゑソスソストゑソスソスワゑソスソスB
ソスyソスソスz
- ソスロ托ソスソスソスソスソス
ソスNソスbソスLソス[ソスノは保托ソスソスソスソストゑソスソスソスソスソスソスソスソスソスン定すソスソスKソスvソスソスソスソスソスソスAソスソスソスソスソスノゑソスソスソスソスソスソスネ規ソスソスソスソスソスソスソスソスワゑソスソスB
"ソスjソスソス, ソスソス-ソスソス-ソスソスソスソス ソスソス:ソスソス:ソスb GMT";
ソスjソスソスソスヘ、'Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'ソスソスソスソスIソスソス
ソスソスソスヘ、ソスOソスソスソスネ暦ソスソスソスソスソスソスソス'01','02','03'ソスフようソスノ鯉ソスソスソスソスワゑソスソスB
ソスソスソスヘ、ソスPソスソスソスソスソスソス'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec' ソスノ置ソスソスソスソスソスソスソスソスKソスvソスソスソスソスソスソスワゑソスソスB
ソスソスソスソスソスbソスソスソスOソスソスソスネ暦ソスソスソスソス驍アソスニはでゑソスソスワゑソスソスソスBソスソスソスフサソスソスソスvソスソスソスナは3ソスOソスソスソスヤの奇ソスソスソスソスソスソスwソス閧オソスAソスソスソスソスソスソスン定しソストゑソスソスワゑソスソスB
local(@date) = localtime(time + 30 * 86400);
$date[5] += 1900;
$date[3] = sprintf("%02d",$date[3]);
$date[2] = sprintf("%02d",$date[2]);
$date[1] = sprintf("%02d",$date[1]);
$date[0] = sprintf("%02d",$date[0]);
local($wday) = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday') [$date[6]];
local($month) = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [$date[4]];
local($date_gmt) = "$wday, $date[3]\-$month\-$date[5] $date[2]:$date[1]:$date[0] GMT";
local($cookievalue) = join(",","name!$QUERY{'name'}","email!$QUERY{'email'}","pw!$QUERY{'pw'}");
print "Set-Cookie: $CookieName=$cookievalue; expires=$date_gmt\n";
|
|
- ソスト用ソスIソスネ擾ソスソスソスソスソスソスン、ソスヌみ搾ソスソスンソスソス[ソス`ソスソス
ソスト用ソスIソスノ暦ソスソスpソスナゑソスソスソスTソスuソスソスソス[ソス`ソスソスソスノゑソスソストゑソスソスソスソスホ、ソスソスソスソスツゑソスソス驍セソスソスソスナ、ソスbソスfソスhソスソスソス成ソスソスソス驍スソスムに擾ソスソスソスソスソスソスソスソスソスKソスvソスソスソスネゑソスソスネゑソスワゑソスソスB
#ソスNソスbソスLソス[ソスソスソスソスソスソスソスソス
sub cookie_regist {
my($cookiename, $cookielist, $date) = @_;
!$date && ($date = 30);
my(@COOKIELIST) = split(/\,/, $cookielist);
my(%COOK);
my(@DATE) = localtime(time + $date * 86400);
$DATE[5] += 1900;
$DATE[3] = sprintf("%02d",$DATE[3]);
$DATE[2] = sprintf("%02d",$DATE[2]);
$DATE[1] = sprintf("%02d",$DATE[1]);
$DATE[0] = sprintf("%02d",$DATE[0]);
my($wday) = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday') [$DATE[6]];
my($month) = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [$DATE[4]];
my($date_gmt) = "$wday, $DATE[3]\-$month\-$DATE[5] $DATE[2]:$DATE[1]:$DATE[0] GMT";
my($cookievalue, $key, $value);
foreach (@COOKIELIST) {
($key, $value) = split(/=/, $_);
$key =~ s/\,/&comma/g;
$key =~ s/:/&colon/g;
$key =~ s/;/&semicolon/g;
$value =~ s/\,/&comma/g;
$value =~ s/:/&colon/g;
$value =~ s/;/&semicolon/g;
if ($cookievalue) {
$cookievalue .= ",$key:$value";
} else {
$cookievalue = "$key:$value";
}
$COOK{$key} = $value;
}
print "Set-Cookie: $cookiename=$cookievalue; expires=$date_gmt\n";
%COOK;
}
#ソスNソスbソスLソス[ソスヌみ搾ソスソスソス
sub cookie_read {
my($cookiename) = @_;
my($key, $value, %COOK);
my($cookies) = $ENV{'HTTP_COOKIE'};
my(@pairs) = split(/;/,$cookies);
my(@DUMMY);
foreach $pair (@pairs) {
($key, $value) = split(/=/, $pair);
$key =~ s/ //g;
$DUMMY{$key} = $value;
}
@pairs = split(/\,/,$DUMMY{$cookiename});
foreach $pair (@pairs) {
($key, $value) = split(/:/, $pair);
$key =~ s/&comma/\,/g;
$key =~ s/&colon/\:/g;
$key =~ s/&semicolon/\;/g;
$value =~ s/&comma/\,/g;
$value =~ s/&colon/\:/g;
$value =~ s/&semicolon/\;/g;
$COOK{$key} = $value;
}
%COOK;
}
|
|
- ソスKソスソス数の記ソス^
ソスソスソスソスソスフホソス[ソスソスソスyソス[ソスWソスヨのアソスNソスZソスXソスソスソスソスmソスソスソス\ソスIソスネゑソスソスフにアソスNソスZソスXソスJソスEソスソスソス^ソス[ソスソスソスソスソスソスワゑソスソスB
ソスソスソスフアソスNソスZソスXソスJソスEソスソスソス^ソス[ソスヘ、ソスソスソスラての訪ソスソスメの累計ソス数ゑソスソストゑソスソスワゑソスソスフで、
ソスヌなゑソスソスソスソスソスソスソスKソス黷スソスフゑソスソスヘ把ソスソスソスナゑソスソスワゑソスソスソスBソスNソスbソスLソス[ソス利用ソスソスソスト、
ソスソスソス黷シソスソスフ訪ソスソスメのブソスソスソスEソスUソスノカソスEソスソスソスgソスソスソスLソス^ソスソスソストゑソスソスソスソスホ、ソスKソスソスメゑソスソスニにカソスEソスソスソスgソスソスソス骼厄ソスソスソスツ能ソスノなゑソスワゑソスソスB
$timelag = 9;
$ENV{'TZ'} = "GMT";
#$timelagソスノ設定しソスソスソスソスソスEソスWソスソスソスソスソスソスソスソスフ趣ソスソスソスソスソスソスvソスソスソスXソスソスソスト本ソスソスソスフ難ソスソスtソスソスソス謫セ
(@DATE) = localtime(time + $timelag * 3600);
$date = sprintf("%04d/%02d/%02d", $DATE[5] + 1900, $DATE[4]++, $DATE[3]);
#ソスNソスbソスLソス[ソスフ厄ソスソスOソスソスソスwソス閧オソストクソスbソスLソス[ソスソスヌみ搾ソスソスソス;
&cookie_read('cookie_count');
#ソスソスソスtソス調べて難ソスソスソスソスソスソスネゑソス1ソスvソスソスソスXソスソスソスソス
#ソスソスソス゚ての訪ソスソスソスAソスソスソスtソスソスソスマゑソスソスソストゑソスソスソスホ本ソスソスソスソスソスソスソスPソスノゑソスソスソス
if ($COOKIE{'date'} eq $date) { $COOKIE{'today'}++; } else { $COOKIE{'today'} = 1; }
$COOKIE{'total'}++;
#ソスNソスbソスLソス[ソスノ擾ソスソスソスソスソスソズデソス[ソス^ソスフフソスHソス[ソス}ソスbソスgソス整ゑソスソスソス
$value = "date!$date,today!$COOKIE{'today'},total!$COOKIE{'total'}";
#ソスNソスbソスLソス[ソスフ厄ソスソスフ、ソスソスソスソスソスソスソズデソス[ソス^ソスAソスソスソスソスソスソスソスwソス閧オソスト擾ソスソスソスソスソスソスンソスソス[ソス`ソスソスソスソスソストび出ソスソス
&cookie_regist('cookie_count', $value, 30);
print "Content-type: text/html\n\n";
print "<html><body>\n";
print "<p>ソス{ソスソス$COOKIE{'today'}ソスソスAソスソスソスv$COOKIE{'total'}ソスソスレのゑソスソスKソス竄ソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB</p>\n";
print "</body></html>\n";
exit;
|
|
- ソスtソスHソス[ソスソスソスフ難ソスソスヘ支ソスソス
ソスfソスソスソスツゑソス`ソスソスソスbソスgソスネど、ソス謔ュソスソスソスpソスソスソスソスyソス[ソスWソスナ、ソスソスソスOソス窿ソス[ソスソスソスAソスhソスソスソスXソス毎会ソスLソスソスソスソスソスソスフは厄ソスソスネゑソスソスフでゑソスソスB
ソスNソスbソスLソス[ソスソスソスgソスpソスソスソスソスホ2ソスソスレ以降ソスヘ、ソス\ソス゚難ソスソスヘゑソスソスソストゑソスソスト訪ソスソスメは省暦ソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
ソスNソスbソスLソス[ソスノ擾ソスソスソスソスソスソズコソス[ソスhソスヘ、ソスfソス[ソス^ソスソスソスtソス@ソスCソスソスソスノ擾ソスソスソスソスソスソスだ抵ソスソスソスノ置ソスソスソスワゑソスソスB
#ソスNソスbソスLソス[ソスノ擾ソスソスソスソスソスソズデソス[ソス^ソスフフソスHソス[ソス}ソスbソスgソス整ゑソスソスソス
#ソスLソスソスソスソスソスソスソスソスフは、ソスソスソスソスソスOソスAE-MailソスAソスzソス[ソスソスソスyソス[ソスWソスAソスpソスXソスソスソス[ソスh
$value = "name!$QUERY{'name'},email!$QUERY{'email'},hp!$QUERY{'hp'},pw!$QUERY{'pw'}";
#ソスNソスbソスLソス[ソスフ厄ソスソスOソスソスソスubbsソスvソスAソスロ托ソスソスソスソスヤゑソスソスRソスOソスソスソスノゑソスソスAソスNソスbソスLソス[ソスソスソスソスソスソスソスンソスソス[ソス`ソスソスソスソスソストび出ソスソス
&cookie_regist('bbs', $value, 30);
ソスソスソスソスソスソスソスワれたソスNソスbソスLソス[ソスフ擾ソスソスソスソスtソスHソス[ソスソスソスソスソス成ソスソスソスソスニゑソスソスノ展ソスJソスソスソスワゑソスソスB
#ソスNソスbソスLソス[ソスフ厄ソスソスフに「bbsソスvソスソスソスwソス閧オソストクソスbソスLソス[ソスソスヌみ搾ソスソスソス
&cookie_read('bbs');
print "<form name=inputform action=note.cgi method=POST>\n";
print "<input type=hidden name=action value=regist>\n";
#ソスAソスzソスzソスソス%COOKIEソスフ値ソスソスソスvソスソスソスソスソスvソスgソスニゑソスソスト托ソスソス
print "ソスソスソスソスソスO:<input type=text name=name value=$COOKIE{'name'}><br>\n";
print "E-mail:<input type=text name=email value=$COOKIE{'email'}><br>\n";
print "ソス阮シ:<input type=text name=subject><br>\n";
print "Hp:<input type=text name=hp value=$COOKIE{'hp'}><br>\n";
print "Password:<input type=password name=pw value=$COOKIE{'pw'}><br>\n";
print "<textarea name=comment rows=4 cols=80></textarea><br>\n";
print "<input type=submit value=ソスVソスKソスソスソスeソス^ソスXソスV>\n";
print "</form>\n";
|
| ソスヨ撰ソスソスニサソスuソスソスソス[ソス`ソスソス |
|
- perlソスナは関撰ソスソスニサソスuソスソスソス[ソス`ソスソスソスソスソスソスハゑソスソスワゑソスソスソスBソスソス{ソスIソスノゑソスソスラてゑソスソスヨ撰ソスソスナゑソスソスB
ソスソスハ的ソスノは擾ソスソスソスソスソスソスソスソスソスソスLソスqソスソスソスAソス゚ゑソスlソスソスソスAソスソスソスネゑソスソスソスソスフゑソスソスTソスuソスソスソス[ソス`ソスソスソスAソスソスソスソスソスソスフ鯉ソスソスハゑソスソスAソスソスソスソスソスフゑソスソスヨ撰ソスソスニ呼びまゑソスソスソスソスA
perlソスナはゑソスソスラてのサソスuソスソスソス[ソス`ソスソスソスナ最鯉ソスノ擾ソスソスソスソスソスソス黷スソスマ撰ソスソスソスソスAソスソスソスワゑソスソスB
ソスソスソスフ帰ソスソスソス黷スソスlソスソスソスgソスpソスソスソスソスソスソスソスソスネゑソスソスソスソスvソスソスソスOソスソスソス}ソスソスソスソスナゑソスソスB
ソスgソスpソスソスソスソスホ関撰ソスソスナ使ソスpソスソスソスネゑソスソスソスホサソスuソスソスソス[ソス`ソスソスソスニゑソスソスソスソスソスソスニになゑソスワゑソスソスB
- ソスヨ撰ソスソスフ記ソスq
ソスヨ撰ソスソスフ宣言ソスノゑソスsubソスLソス[ソスソスソス[ソスhソスナ始ソスワゑソスuソスソスソスbソスNソスナ記ソスqソスソスソスワゑソスソスB
Sub function {
local($a) = 2;
local($b) = 3;
local($c) = $a * $b;
$c;
}
|
|
functionソスヘ英ソスソスソスソスソスナプソスソスソスOソスソスソス}ソスソスソスソスソスRソスノ付ソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
ソスヨ撰ソスソスソスソスナゑソスlocalソスLソス[ソスソスソス[ソスhソスソスソスgソスpソスソスソスト関撰ソスソスソスソスソスソスソスソスフスソスRソス[ソスv(ソスLソスソスソスヘ茨ソス)ソスソスソスソスソスツソスソス[ソスJソスソスソスマ撰ソスソスソスソスgソスpソスナゑソスソスワゑソスソスB
ソスソスソス[ソスJソスソスソスマ撰ソスソスヘ、ソスヨ撰ソスソスフブソスソスソスbソスNソスソスソスソスソスソスソスナ有ソスソスソスナゑソスソスソスソスソス
ソスソスソスCソスソスソスソスソス[ソス`ソスソスソスナ難ソスソスソスソスフ変撰ソスソスソスソスソスソスgソスpソスソスソスソストゑソスソストゑソスソスlソスノ影ソスソスソスソス^ソスソスソスソスSソスzソスソスソスソスソスソスワゑソスソスソスB
ソスソスソスソスソスソスソスソスソスト汎用ソスIソスネ関撰ソスソスソスソスLソスqソスソスソス骼厄ソスソスソスツ能ソスノなゑソスフでゑソスソスB
- ソスヨ撰ソスソスフ呼出ソスソス
ソスヨ撰ソスソスソスAソスTソスuソスソスソス[ソス`ソスソスソスソスソストび出ソスソスソス鼾ソスヘ、ソスヨ撰ソスソスソスソスフ前ソスノ「&ソスvソスソスtソスソスソスワゑソスソスB
ソスTソスuソスソスソス[ソス`ソスソスソスフ場合ソスヘ戻ゑソスlソスソスKソスvソスニゑソスソスワゑソスソスソスBソスソスソスフようソスネ記ソスqソスソスソスソスソスナ撰ソスソスソスソスソスTソスuソスソスソス[ソス`ソスソスソスノ移ゑソスソスソスソスニゑソスソスナゑソスソスワゑソス
&function;
ソスヨ撰ソスソスヘ戻ゑソスlソスソスソスけ趣ソスソスワゑソスソスフで趣ソスソスフようソスノゑソスソスワゑソスソスB
$value = &function;
ソスソスソスフ場合ソスAソス゚ゑソスlソスソス$valueソスノ格ソス[ソスソスソスソスワゑソスソスB
ソスvソスZソスソスソスノ含めゑソス
$value = &function * 2;
print "<p>ソスソスソスv = ", &function , "</p>\n";
for ($index = &start_roop; $index <= &end_roop; $index++) {
ソスEソスEソスEソスEソスEソスEソスE
}
|
|
ソスニ擾ソスソスソスソスソスソスニゑソスソスナゑソスソスワゑソスソスB
ソスヨ撰ソスソスヘ、ソスヨ撰ソスソスソスソスナ托ソスソスフ関撰ソスソスソスソストび出ソスソスソスソスソスソスソスAソスソスソスソスソスソスソスgソスソスソストび出ソスソスソスソスソスニゑソスソスナゑソスソスワゑソスソスB
- ソスソスソスソスソスソスnソスソス
ソスヨ撰ソスソスAソスTソスuソスソスソス[ソス`ソスソスソスノ茨ソスソスソスソスソスnソスソスソスAソスソスソスフ茨ソスソスソスソス利用ソスソスソスト計ソスZソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
ソスTソスuソスソスソス[ソス`ソスソスソスノ茨ソスソスソスソスソスnソスソスソスAソスソスソスソスソスソスレゑソスソスノは、
&function(3);
ソスヨ撰ソスソスノ茨ソスソスソスソスソスnソスソスソスAソスvソスZソスソスソスハゑソスソスけ趣ソスソスノは、
$value = &function(3);
ソスニゑソスソスワゑソスソスB
ソスソスソスソスソスソスソスAソスXソスJソスソスソスマ撰ソスソスソスソスソスソスナなゑソスソスzソスソスマ撰ソスソスソスnソスソスソスソスソスニゑソスソスナゑソスソスワゑソスソスB
$value = &fuction(@DATA);
- ソスソスソスソスソスソスソスソスソスソスソスソスソスソスヨ撰ソス
ソスヨ撰ソスソスソスAソスTソスuソスソスソス[ソス`ソスソスソスヘ茨ソスソスソスソスソスソスけ趣ソスソスvソスZソスAソスソスソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
ソストび出ソスソスソスソスソスノ指ソス閧ウソス黷スソスソスソスソスソスヘ、ソスソスソスソスマ撰ソス@_ソスノ格ソス[ソスソスソスソストゑソスソスワゑソスソスB
sub function {
local($pi) = $_[0];
$pi * 3.14159;
}
|
|
ソスソスソスフ暦ソスナは茨ソスソスソスソスノ円ソスソスソスソスソスソスソス|ソスソスソスト帰ソスソスソストゑソスソスワゑソスソスB
ソスソスソスソスソスフスソスJソスソスソスlソスソスソスソスソスソスソスソスソスソスノは、
sub function {
local($a, $b) = @_;
$a * $b;
}
|
|
ソスソスソスフ暦ソスヘ、ソスQソスツの茨ソスソスソスソスソスソスけ趣ソスソスAソスソスソスフ積ゑソスソスAソスソスソストゑソスソスワゑソスソスB
ソスzソスソスソスソスけ趣ソスソスノは、ソスソスソスフようソスノ擾ソスソスソスソスワゑソスソスB
sub function {
local(@PRM) = @_;
local($max) = 0;
foreach (@PRM) {
($_ > $max) && $max = $_;
}
$max;
}
|
|
ソスソスソスソスヘ、ソスけ趣ソスソスソスソスソスzソスソスマ撰ソスソスフ撰ソスソスlソスソスソスPソスツゑソスソスツ抵ソスソスラ、ソスナ托ソスlソスソスソスAソスソスソストゑソスソスワゑソスソスB
ソスソスソスフサソスソスソスvソスソスソスナは、ソスfソスBソスソスソスNソスgソスソスソスネゑソスソスフサソスuソスfソスBソスソスソスNソスgソスソスソスソスAソスtソス@ソスCソスソスソスソスソスAソスtソス@ソスCソスソスソスフサソスCソスYソスソス\ソスソスソスソスソストゑソスソスワゑソスソスB
ソスfソスBソスソスソスNソスgソスソスソスフ場合ソスヘ、ソスソスソスソスソスソスソスgソスソスソストび出ソスソスソスソスソスフ難ソスソスソスソスソスソス\ソスソスソスソスソスワゑソスソスB
sub search {
local($dir) = $_[0];
#ソスfソスBソスソスソスNソスgソスソスソスソスソスwソス閧ウソスソストゑソスソスネゑソスソスソスホ鯉ソスソスンのデソスBソスソスソスNソスgソスソスソスソスソスソスJソスn
if (!$dir) { $dir = './'; }
#ソスfソスBソスソスソスNソスgソスソスソスソスソスレ難ソス
chdir $dir;
#ソスTソスuソスfソスBソスソスソスNソスgソスソスソスソスソスワめデソスBソスソスソスNソスgソスソスソスネゑソスソスフフソス@ソスCソスソスソスソスソス謫セ
local(@FILENAMES) = <*>;
foreach $file (@FILENAMES) {
#ソスtソス@ソスCソスソスソスソスソスヌみ搾ソスソスン可能ソスネデソスBソスソスソスNソスgソスソスソスネゑソス
if (-d $file && -r _) {
#ソスfソスBソスソスソスNソスgソスソスソスソスソスソス\ソスソス
print " <b>[$file]</b>\n";
print "<ul>";
#ソスソスソスフデソスBソスソスソスNソスgソスソスソスフ難ソスソスソスソス調べるたソス゚趣ソスソスソスソスソスソスgソスソスソストび出ソスソス
&search($file);
#ソスソスソスフデソスBソスソスソスNソスgソスソスソスノ戻ゑソス
chdir("../");
print "</ul>";
} else {
#ソスtソス@ソスCソスソスソスソスソスソスソスハのフソス@ソスCソスソスソスネゑソス
if (-f $file) {
#ソスtソス@ソスCソスソスソスフサソスCソスYソス調べゑソス
$size = int((-s $file) / 1024 + 0.9);
print "$file - $size K<br>\n";
}
}
}
}
|
|
|
|
|