*99の指定したCGIを*00が作るスレ
おいおまいら、WebProg板でもこのスレをやってみましょう、おながいします。
ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、
*98さんに繰り下げするとかでおながいします。
というわけでまずは>>99-100おながいします。 >>99
>>100ではないが質問。
ページってなに? ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━― ∧_∧
ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。
=〔~∪ ̄ ̄〕
= ◎――◎ 山崎渉 (・∀・)イイ懸賞サイト、お小遣いサイトをピックアップして紹介しています
月に1万円以上は稼げそうにないけど、4000円ぐらいなら確実に稼げます!!
無料登録するだけで商品券が貰えるサイトなども載せてあります
http://f15.aaacafe.ne.jp/~suikas/present.html >>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; >>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\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
}
}
ものすごい数のサンプルと画像を集めてみました。モロ
こきすぎ注意
http://www.h2.dion.ne.jp/~m_oka/moemoe/ero_03.html >>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; >>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$/);
}
}
__∧_∧_
|( ^^ )| <寝るぽ(^^)
|\⌒⌒⌒\
\ |⌒⌒⌒~| 山崎渉
~ ̄ ̄ ̄ ̄ ∧_∧ ∧_∧
ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。
=〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
= ◎――――――◎ 山崎渉&ぼるじょあ (⌒V⌒)
│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン <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 作ってやったから金払え while(1) {
print("ぬるぽ\n");
} ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
| | ガガガガガッ
| |
人
∧_∧ < >_∧∩
( ・∀・) 人`Д´)/ ←>>272
と ) < >_∧∩
Y /ノ .人`Д´)/ ←>>313
/ ) < >_∧∩
_/し' //. V`Д´)/ ←>>320
(_フ彡 / _
|O\
| \ キリキリ
∧|∧ \ キリキリ
ググゥ>(;⌒ヽ \
∪ | (~)
∪∪ γ´⌒`ヽ
) ) {i:i:i:i:i:i:i:i:}
( ( ( ´・ω・)、
(O ⌒ )O
⊂_)∪ 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
9R1ADQXKGO もっと君のかわいい声ききたいな…ほら、その手どけてよ…もっと聞かせて…