[過去ﾛｸﾞ] ■こんなCGI作ってください■ Part.2 (988ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
428(17): 2006/02/04(土)23:49 ID:mtaRatQ3(1) AAS
掲示板にトリップテスト用CGIでもつけようかな？
なんて思ってたらこんなのを見つけました。
外部ﾘﾝｸ[txt]:rishoran.at.infoseek.co.jp
それで現状では
・新々鯖(予定)
・旧鯖っぽくなる
・新鯖っぽくしてみた
・jbbsっぽくしてみた
の４つが表示されるんですが４つラジオボタンを付けて付けたもののみを表示
させるにはどうしたらよいですか？
よろしくおねがいします
430(1): 2006/02/05(日)01:17 ID:??? AAS
>>428
ラジオボタンで送られてきた値をもとに、if文で分岐
466: 428 2006/02/05(日)02:24 ID:O17O3sMZ(1/12) AAS
>>430
どこでifにすればいいんでしょうか？
472: 428 2006/02/05(日)02:28 ID:O17O3sMZ(2/12) AAS
>>468
是非>>428をおながいします
私は女の子(20：彼氏なし)です
473: 428 2006/02/05(日)02:29 ID:O17O3sMZ(3/12) AAS
私は女の子(20：彼氏なし)ですが
焼物好きの讃岐さんは嫌いです
475: 428 2006/02/05(日)02:38 ID:O17O3sMZ(4/12) AAS
でもみんなの非難を浴びながらせっせと焼いてるときの讃岐さんは素敵です＾＾；
惚れそうかも＾＾；
477: 428 2006/02/05(日)02:44 ID:O17O3sMZ(5/12) AAS
if ($ENV{REQUEST_METHOD} ne 'POST'
|| read(STDIN, $postdata, $ENV{CONTENT_LENGTH}) != $ENV{CONTENT_LENGTH})
{
$postdata = $ENV{QUERY_STRING};
}
for (split(/&/, $postdata))
{
($key, $val) = m/^(\w+)=(.*)$/;
$val =~ s/\+/ /g;
$val =~ s/%([0-9A-F]{2})/pack('H2', $1)/egi;
$q{$key} = $val;
}
↑どうすればいいんですか？＾＾
479: 428 2006/02/05(日)02:47 ID:O17O3sMZ(6/12) AAS
<FORM method="POST">
<H3>トリップ(#をつけて並べて書け)</H3>
<TEXTAREA name="trip" rows="16" cols="40">
$trip_table</TEXTAREA>
<DIV><INPUT type="submit" value="ﾁｪｯｸ"></DIV>
</FORM>
↑どうすればいいんでしょうか？
480(1): 435 2006/02/05(日)02:49 ID:??? AAS
外部ﾘﾝｸ[pl]:compact.s56.xrea.com
ほれ >>428
481: 428 [どうすればいいの？？？＾＾] 2006/02/05(日)02:49 ID:??? AAS
if ($q{'trip'} ne ''){ $q{'trip'} =~ s/\r/ /g;
＜＜略＞＞
while ($q{'trip'} =~ s/#([^ ]{1,19})//){
next if $1 eq '';
＜＜略＞＞
# まずは2ch互換の汚染除去(うんこ)
$key =~ s/</</g;
$key =~ s/>/>/g;
$trip = '◆' . &trip($key) . " \x23$key\n";
$trip_table .= $trip;
$trips .= "<TR><TD>$trip</TD>";
# Salt生指定(旧鯖)
($salt) = ($key.'H.') =~ /^.(..)/;
$salt =~ s/[^.-z]/./g;
$newkey = ">$salt$key";
$trips .= '<TD>◆' . &trip($newkey) . " \x23$newkey</TD>";
# Salt生指定(新鯖)
($salt) = ($key.'HG') =~ /^.(..)/;
$salt =~ tr/\x7B-\xFF\x00-\x2D/.-2G-Za-z.-9A-Za-z.-9A-Za-z/;
$newkey = ">$salt$key";
$trips .= '<TD>◆' . &trip($newkey) . " \x23$newkey</TD>";
# Salt生指定(jbbs)
($salt) = ($key.'H.') =~ /^.(..)/;
$salt =~ tr/.-9A-Za-z/./c;
$newkey = ">$salt$key";
$trips .= '<TD>◆' . substr(&trip($newkey),-8) . " \x23$newkey</TD></TR>";
}
482: 428 [どうすればいいの？？？＾＾] 2006/02/05(日)02:52 ID:??? AAS
>>480
おおお流石！
讃岐とはやっぱり違いますね！！！
惚れました(;´Д｀)ﾊｧﾊｧ
のでソースを＾＾；
484(1): 428 [どうすればいいの？？？＾＾] 2006/02/05(日)02:58 ID:??? AAS
>>483
確認しました
バッチリです！
こんな時間にホントありがとうございます！
それとアホな質問かもしれませんが
たとえばradioボタンをチェックして（仮にjbbs)更新しますと
最初の（デフォの新々鯖）に戻りますよね
これってしょうがないんですよね？
487: 428 2006/02/05(日)03:10 ID:O17O3sMZ(7/12) AAS
>>485
確認しますた！
もうなにからなにまで感謝感激ヒデキ感激！！
マジ勉強なりましたｍ（＿＿）ｍ
またなにかあったらよろしくおながします
490: 428 2006/02/05(日)03:12 ID:O17O3sMZ(8/12) AAS
>>486
おお>>486ｻｿまでm(__)m
みなさん讃岐みたいな焼き物好きの香具師とはやっぱり違いますね！！
タグに噛ませるのもためになりますm(__)m
491(1): 428 2006/02/05(日)03:15 ID:O17O3sMZ(9/12) AAS
>>488
>つうか$trip_tableのフォローがちゃんとできてないよね。動作変わってる
<TD></TD>のところですか？
それとも違うところです？
>>489
マジありがとうございました。
ひさびさに２ｃｈで優しくしてもらった｡･ﾟ･(ﾉД`)･ﾟ･｡
493(1): 428 2006/02/05(日)03:29 ID:O17O3sMZ(10/12) AAS
>>492
$trip = '◆' . &trip($key) . " \x23$key\n";
$trip_table .= $trip;
これで他のif($mode == 1〜3)も外へってことですよね？
アドバイスありがとうございます。
それからまた質問なんですが
$trip = '◆' . &trip($key) . " \x23$key\n";
の \x23 は # とする
$trip = '◆' . &trip($key) . " #$key\n";
もしくは
$trip = '◆' . &trip($key) . '#' . "$key\n";
とどちらが正しい表記なんですか？
また
$trips .= "<TR><TD>$trip</TD>"; ← .= コンマあり
$trips = "<TR><TD>$trip</TD>"; ← = コンマなし
の違いが･･･
496(1): 428 2006/02/05(日)03:50 ID:O17O3sMZ(11/12) AAS
>>494
TIMTOWTDI=てぃむとぅでぃと読むらしいです
勉強になりました
シンタックスシュガーについてはうちにある２冊のperl本にもなかったんです
インデントを揃えるためなのかな？とか思ってたり・・・
遅くまでありがとうございました
また遊びにきますｚｚｚ
497: 428 2006/02/05(日)03:51 ID:O17O3sMZ(12/12) AAS
リロードしてなかったorz
>>495
マジっすか？
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.035s