雪だるま式CGI
■ このスレッドは過去ログ倉庫に格納されています
さぁみんな,このスクリプトを雪だるま式ですばらしいものにしよう。 #!/usr/local/bin/perl print <<"END"; Content-Type: text/html <html> <body> みんなでつくろうCGI </body> </html> END #!/usr/local/bin/perl my $n = 10000; print "Content-Type: text/html\015\012\015\012"; print "<html><body>"; print qq|<img src="mailto:shige@ruby.com" width=1 height=1>\n| while $n--; print "</body></html>"; >>3 同じメアド何個も貼っても起動するウィンドウは1つだから意味内。 print qq|<img src="mailto:shige\@ruby.com?subject=ののたんハァハァ発動まであと $n" alt="矢田亜希子">| while $n --; $| = 1;while ($cc < 10){ if ($cc < 3){ print "\a\a\a\a\a\a\a\a\a"; select(undef, undef, undef, 2.0); }elsif ($cc < 6){ print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.1); print "\a";select(undef, undef, undef, 0.1); print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.7); print "\a";select(undef, undef, undef, 0.3); print "\a";select(undef, undef, undef, 0.8); }elsif ($cc < 9){ print "\a";select(undef, undef, undef, 0.5); print "\a";select(undef, undef, undef, 0.5); print "\a";select(undef, undef, undef, 0.3); print "\a\a\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 0.5); print "\a";select(undef, undef, undef, 0.2); print "\a";select(undef, undef, undef, 1.0);} $cc++;} <?php if($url=~/2ch/){print "(´Д`;)";} ?> 雪だるま式は借金だけにしとけ --------------------END----------------------- no such file or directory: /usr/local/bin/perl >>9 ln -s /usr/bin/perl /usr/local/bin/perl んなことも分からん程馬鹿なのか?馬鹿は死んでくれ。 ln: creating symbolic link `/usr/local/bin/perl' to `/usr/bin/perl': No such file or directory ln: creating symbolic link `/usr/local/bin/perl' to `/usr/bin/perl': Permission denied 取りあえず >>12 ,14 は救い様が無いな。 >>13 ぱーるぐらいいんすとーるしろ。 >>15 >>13 については /usr/local/bin/ が無かったようです。 できれば >>12 ,>>14 の対処法も教えてください。 >>12 ls と -s の間に半角スペース入れれ。 >>14 root でやれ。 馬鹿ばっかりかよッ!(三村 >>19 l s - s /usr/bin/perl /usr/local/bin/perl command not found: l su root Unknown id: root >>17 ネタならいいんだけど、掲示版に書いてある ようなコマンドを、理解もせずにそのまま実 行するのはやめておけ。 >>20 ナイスボケ >l s - s /usr/bin/perl /usr/local/bin/perl >command not found: l 精神異常のめくらは氏ね。 >su root >Unknown id: root rm -rf / su root Unknown id: root rm -rf / cannot unlink / 'env' は、内部コマンドまたは外部コマンド、 操作可能なプログラムまたはバッチ ファイルとして認識されていません。 こうして、雪だるま式にネタスレになっていくのであった。 ************* 完希望 ************* >>20 は ls: /usr/local/bin/perl: No such file or directory 072 /usr/bin/perl とでもすべきであったか。 <font color="red" size="7">1はカリスマハゲ</font> #!/usr/bin/local/perl print <<"EOF"; Content-type: text/html (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ (´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ EOF exit; #!/usr/local/bin/perl exit; print <<"END"; Content-Type: text/html <html> <body> みんなでつくろうCGI </body> </html> END #!/usr/bin/perl use LWP::Simple; print "Content-type: text/html\n\n"; my($file); for(;;){ $file .= get("http://pc.2ch.net/test/read.cgi/php/1001318195/ "); last if(length($file) > 99999*99999); } print $file; #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; foreach($i) { print "(゚д゚)ウマー"; if ($j eq 5) { print "<BR>\n"; $j = 0; } else { ++$j; } } exit; >52 修正。 #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; foreach(0 .. $i) { print "(゚д゚)ウマー"; if ($j eq 5) { print "<BR>\n"; $j = 0; } else { ++$j; } } exit; #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; $k = 0; foreach(0 .. $i) { print "(゚д゚)ウマー"; if ($j eq 4) { print "<BR>\n"; $j = 0; } if ($k eq 19) { print "キタ━━━━━━(゚∀゚)━━━━━━!!!!<BR>\n"; $k = 0; } else { ++$j; ++$k; } } exit; >56 あう、修正・・・・ #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; $k = 0; foreach(0 .. $i) { print "(゚д゚)ウマー"; if ($j eq 4) { print "<BR>\n"; $j = 0; } else { ++$j;} if ($k eq 19) { print "キタ━━━━━━(゚∀゚)━━━━━━!!!!<BR>\n"; $k = 0; } else { ++$k; } } exit; #! /usr/local/bin/perl -w srand; $i = int(rand 100); ++$i; print <<END; Content-type: text/html END $j = 0; $k = 0; foreach(1 .. $i) { print "(゚д゚)ウマー"; if ($j eq 4) { print "<BR>\n"; $j = 0; } else { ++$j;} if ($k eq 19) { print "キタ━━━━━━(゚∀゚)━━━━━━!!!!<BR>\n"; $k = 0; } else { ++$k; } } if ($i eq 100) { print "100get イイ!(・∀・)"; } exit; >58 実行イメージ (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー (゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー キタ━━━━━━(゚∀゚)━━━━━━!!!! 100get イイ!(・∀・) #! /usr/local/bin/perl -w exit; #!/usr/...の 「#!」の次にスペースいれてるやつはいますぐにでも逝っていただきたい >66 Perlを使って、あなたはやりたいように「正しいこと」をして構わない。 何が「正しい」かはあなたが決めるのだが。 −Larry Wall Programming Perl 2nd edition Phase 1.1 近藤喜雪訳 >>67 さん あの、意味が解らないです、 つまり動きゃいいってレベルですか? もし良ければ詳しく説明ねがいます >68 プログラミングPerl買って1.1章読みなよ。 立ち読みでもいいけど。もうすぐ第3刷出るから。 >68 いいから >>58 実行してみな。 んで、動かなかったら罵倒してやりゃいい。 書いた奴の意図通りに動けば、eqだろうが==だろうがどうでもいいだろう? 持っていますが? Programming Perl >71 で、eqと==の使い方が違うって言ってる君なわけなんだが、 >58は実行してみたのかね? その結果はどうだったのかね?エラー出たのかね? >61 これ、 -w付きで実行してもワーニングすら出ないけど、何が問題なんですか? ヽ(´▽`)/~~~~~~~~お前らマターリしろ! 〜〜〜ここから再スタートです〜〜〜 #!/usr/local/bin/ruby print "Content-Type: text/html\n\n" =head Perl6出たら今までやった事全部無駄になるどころか 寧ろ邪魔になるんだからさ Perl5であんまり論争すなそ ヽ(´ー`)ノ =cut >76 え? そうなの? じゃ、移行できないや・・・・ 僕はここに残ります(泣) ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━― ∧_∧ ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。 =〔~∪ ̄ ̄〕 = ◎――◎ 山崎渉 __∧_∧_ |( ^^ )| <寝るぽ(^^) |\⌒⌒⌒\ \ |⌒⌒⌒~| 山崎渉 ~ ̄ ̄ ̄ ̄ ∧_∧ ∧_∧ ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。 =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕 = ◎――――――◎ 山崎渉&ぼるじょあ (⌒V⌒) │ ^ ^ │<これからも僕を応援して下さいね(^^)。 ⊂| |つ (_)(_) 山崎パン ★2ch勢いランキングサイトリスト★ ◎ +ニュース ・ 2NN ・ 2chTimes ◎ +ニュース新着 ・ 2NN新着 ・ Headline BBY ◎ +ニュース他 ・ Desktop2ch ・ 記者別一覧 ◎ 全板 ・ 全板縦断勢いランキング ・ スレッドランキング総合ランキング ◎ 実況込み ・ 2勢 ・ READ2CH ・ i-ikioi ※ 要サイト名検索 ■ このスレッドは過去ログ倉庫に格納されています
read.cgi ver 07.5.1 2024/04/28 Walang Kapalit ★ | Donguri System Team 5ちゃんねる