トップページ⇒php
325コメント55KB

*99の指定したCGIを*00が作るスレ

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/11/17 11:43ID:r2gR01qm
おいおまいら、WebProg板でもこのスレをやってみましょう、おながいします。

ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、
*98さんに繰り下げするとかでおながいします。

というわけでまずは>>99-100おながいします。
0272山崎渉03/04/20 06:22ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)
0273age03/05/05 13:53ID:???
age
0274nobodyさん03/05/05 14:06ID:zlc2Jh4q
http://bizinfo.cool.ne.jp/biz-rank/ranklink.cgi?id=mercury
0275age03/05/11 15:09ID:???
age
0276bloom03/05/11 15:10ID:D5AlwyCG
http://homepage.mac.com/ayaya16/
027743503/05/11 16:16ID:???
無能な100がいるスレはここでつか?
0278nobodyさん03/05/21 12:19ID:FjAuXMMq
>>99
>>100ではないが質問。
ページってなに?
0279動画直リン03/05/21 13:08ID:JZ9K0e/X
http://homepage.mac.com/hitomi18/
0280かおりん祭り03/05/21 13:08ID:???
〜oノハヽo〜  http://togoshi.ginza.st/kaorin/
  ( ^▽^) < こんなのがございまーす♪ 
http://togoshi.ginza.st/kaorin/kaorin05.html
http://www.togoshi.ginza.st/kaorin/kaorin02.html
http://togoshi.ginza.st/kaorin/kaorin06.html
http://www.togoshi.ginza.st/kaorin/kaorin08.html
http://togoshi.ginza.st/kaorin/kaorin01.html
http://www.togoshi.ginza.st/kaorin/kaorin10.html
http://togoshi.ginza.st/kaorin/kaorin04.html
http://www.togoshi.ginza.st/kaorin/kaorin03.html
http://togoshi.ginza.st/kaorin/kaorin09.html
http://www.togoshi.ginza.st/kaorin/kaorin07.html
0281nobodyさん03/05/21 14:36ID:???
281
0282nobodyさん03/05/21 14:36ID:???
282
0283nobodyさん03/05/21 14:37ID:???
283
0284nobodyさん03/05/21 14:37ID:???
284
0285nobodyさん03/05/21 14:37ID:???
285
0286nobodyさん03/05/21 14:37ID:???
286
0287nobodyさん03/05/21 14:37ID:???
287
0288nobodyさん03/05/21 14:38ID:???
288
0289nobodyさん03/05/21 14:38ID:???
289
0290nobodyさん03/05/21 16:58ID:???
290
0291nobodyさん03/05/21 16:58ID:???
291
0292nobodyさん03/05/21 16:58ID:???
292
0293nobodyさん03/05/21 16:59ID:???
293
0294nobodyさん03/05/21 16:59ID:???
294
0295nobodyさん03/05/21 16:59ID:???
295
0296nobodyさん03/05/21 16:59ID:???
296
0297nobodyさん03/05/21 16:59ID:???
297
0298nobodyさん03/05/21 17:00ID:???
298
0299nobodyさん03/05/21 18:33ID:???
SARSの死者の自動カウントCGI
0300300か30103/05/21 20:15ID:grDsgXvz
OK
で、cgiってなんだ?
0301山崎渉03/05/22 01:57ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―
0302山崎渉03/05/28 17:21ID:???
     ∧_∧
ピュ.ー (  ^^ ) <これからも僕を応援して下さいね(^^)。
  =〔~∪ ̄ ̄〕
  = ◎――◎                      山崎渉
0303神ぽ。03/05/30 15:18ID:???
どうよ
0304_03/05/30 15:26ID:???
http://homepage.mac.com/hiroyuki43/hankaku06.html
0305nobodyさん03/05/30 18:15ID:GJUSi001
(・∀・)イイ懸賞サイト、お小遣いサイトをピックアップして紹介しています  
月に1万円以上は稼げそうにないけど、4000円ぐらいなら確実に稼げます!!
無料登録するだけで商品券が貰えるサイトなども載せてあります
http://f15.aaacafe.ne.jp/~suikas/present.html
0306nobodyさん03/06/04 23:50ID:???
>>303
おk
0307perlお勉強中03/07/12 15:28ID:FW3/pTdg
>>99ネタ#1

#/usr/local/bin/perl
use Socket;
use FileHandle;

$list_url = 'http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html';
&get_list;
srand(time|$$);
$url = $list[rand(@list)];
if ($ENV{'PERLXS'} eq "PerlIS") {
    print "HTTP/1.0 302 Temporary Redirection\r\n";
    print "Content-type: text/html\n";
}
print "Location: $url\n\n";
exit;
0308perlお勉強中03/07/12 15:29ID:FW3/pTdg
>>99ネタ#2

sub get_list {
    $list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
    if ($3) {$_host = $3;}
    if ($4) {$_path = $4;}
    $_ip = inet_aton($_host) || die "host($_host) not found.\n";
    $_sockaddr = pack_sockaddr_in(80, $_ip);
    socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";
    # ソケットの接続
    connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
    autoflush SOCKET (1);
    # HTTP要求を送信
    print SOCKET "GET $_path HTTP/1.1\n";
    print SOCKET "Host: $_host\n";
    print SOCKET "Connection: close\n\n";
    # HTTP応答を受信
    while (<SOCKET>) {
        last if(/^\n$/);
    }
    while (<SOCKET>) {
        push @list, "$&" if(m!(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
    }
}
0309nobodyさん03/07/12 15:55ID:???

ものすごい数のサンプルと画像を集めてみました。モロ
こきすぎ注意
http://www.h2.dion.ne.jp/~m_oka/moemoe/ero_03.html
0310perlお勉強中03/07/12 16:37ID:???
>>299のネタ
#/usr/local/bin/perl
use Socket;
use FileHandle;

# 最新のURLを探索
$list_url = 'http://www.who.int/csr/sars/country/en/';
$key = 'Full text';
&http_connect;
while (<SOCKET>) {
    last if(/$key/);
}
close(SOCKET);
# SARS情報を取得
$list_url="http://www.who.int".$&."/" if(m!(/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
$list_url =~ s/entity\///;
$key = 'Total';
&http_connect;
while (<SOCKET>) {
    last if(/$key/);
}
# 行数決め打ちで死亡者数を切り出し
for($i=0;$i<24;$i++) {$number=<SOCKET>;}
$number =~ m/\d+/; $number = $&;
#結果表示
print "Content-type: text/html\n\n";
print "<html lang=\"jp\"><body>";
print "SARSによる死者数は$number人です\n<br>";
print "ソ\ース:$list_url\n</body></html>\n";
close(SOCKET);
exit;
0311perlお勉強中03/07/12 16:38ID:???
>>299のネタ#2
# socket接続
sub http_connect {
    $list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
    if ($3) {$_host = $3;}
    if ($4) {$_path = $4;}

    $_ip = inet_aton($_host) || die "host($_host) not found.\n";
    $_sockaddr = pack_sockaddr_in(80, $_ip);
    socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";

    # ソケットの接続
    connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
    autoflush SOCKET (1);

    # HTTP要求を送信
    print SOCKET "GET $_path HTTP/1.1\n";
    print SOCKET "Host: $_host\n";
    print SOCKET "Connection: close\n\n";

    # HTTP応答を受信
    while (<SOCKET>) {
        last if(/^\n$/);
    }
}
0312山崎 渉03/07/15 11:07ID:???

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄
0313山崎 渉03/08/02 02:42ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)
0314ぼるじょあ ◆ySd1dMH5Gk 03/08/02 05:29ID:???
     ∧_∧  ∧_∧
ピュ.ー (  ・3・) (  ^^ ) <これからも僕たちを応援して下さいね(^^)。
  =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
  = ◎――――――◎                      山崎渉&ぼるじょあ
0315nobodyさん03/08/02 17:47ID:???
次の00には何を作ってもらうかを考えよ〜
03169903/08/14 10:32ID:???
>>100
早く作れよ頃すぞ
0317山崎 渉03/08/15 22:45ID:???
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン
0318nobodyさん04/03/21 15:32ID:???
>>100
早くつくれよ、こっちは待ってんだぞ
0319!10004/03/22 04:48ID:???
<title>2ちゃんねるルーレット</title>
<?php
$url = 'http://127.0.0.1/bbsmenu.html';
$sec = 5;
if ($lines = preg_grep("/^<A HREF=.+?>.+?<\/A>/", file($url))) {
srand();
print preg_replace(
"/^<A HREF=(.+?)>(.+?)<\/A>.*/",
"$sec 秒後に<a href=\"$1\">$2</a>へ移動<meta http-equiv=\"Refresh\" content=\"$sec;URL=$1\">",
$lines[array_rand($lines)]
);
}
?>
>>318 作ってやったから金払え
0320nobodyさん04/06/18 10:15ID:???
while(1) {
  print("ぬるぽ\n");
}
0321nobodyさん04/12/18 17:51:09ID:neHl2NC1
age
0322nobodyさん2008/11/07(金) 14:31:55ID:YMX4hGRf
ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
0323nobodyさん2008/12/23(火) 14:29:41ID:IREBlBH+
age
0324電脳プリオン2011/12/11(日) 22:20:46.62ID:????2BP(1960)

          | | ガガガガガッ
          | |
          人
  ∧_∧   <  >_∧∩
  ( ・∀・)   人`Д´)/ ←>>272
 と    )  <  >_∧∩
   Y /ノ    .人`Д´)/ ←>>313
    / )    <  >_∧∩
  _/し' //. V`Д´)/ ←>>320
 (_フ彡       /
0325nobodyさん2013/03/27(水) 19:39:59.35ID:IuHY8fTv
      _
      |O\
      |   \ キリキリ
    ∧|∧   \ キリキリ
ググゥ>(;⌒ヽ    \
    ∪  |     (~)
     ∪∪   γ´⌒`ヽ
     ) )    {i:i:i:i:i:i:i:i:}
     ( (    ( ´・ω・)、
           (O ⌒ )O
            ⊂_)∪
■ このスレッドは過去ログ倉庫に格納されています