5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

雪だるま式CGI

1 :名無しさん@お腹いっぱい。:01/09/24 16:56 ID:HKaJcgew
さぁみんな,このスクリプトを雪だるま式ですばらしいものにしよう。

#!/usr/local/bin/perl

print <<"END";
Content-Type: text/html

<html>
<body>
みんなでつくろうCGI
</body>
</html>
END

2 :名無しさん@お腹いっぱい。:01/09/24 17:25 ID:???
いや</html>って。。。終わってるやん

3 : :01/09/24 17:42 ID:???
#!/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>";

4 : :01/09/24 17:43 ID:???
@ -> \@

5 :マジレスさん:01/09/24 18:52 ID:???
>>3
同じメアド何個も貼っても起動するウィンドウは1つだから意味内。

print qq|<img src="mailto:shige\@ruby.com?subject=ののたんハァハァ発動まであと $n" alt="矢田亜希子">| while $n --;

6 :名無しさん@お腹いっぱい。:01/09/24 22:16 ID:???
$| = 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++;}

7 :名無しさん@お腹いっぱい。:01/09/24 23:32 ID:xfUVKO2s
<?php
if($url=~/2ch/){print "(´Д`;)";}
?>

8 :名無しさん@お腹いっぱい。:01/09/25 01:24 ID:???
雪だるま式は借金だけにしとけ

--------------------END-----------------------

9 :名無しさん@お腹いっぱい。:01/09/25 16:18 ID:???
no such file or directory: /usr/local/bin/perl

10 :1:01/09/25 17:16 ID:???
>>9
ln -s /usr/bin/perl /usr/local/bin/perl

んなことも分からん程馬鹿なのか?馬鹿は死んでくれ。

11 ::01/09/25 17:22 ID:???
全くだ

12 :名無しさん@お腹いっぱい。:01/09/25 17:23 ID:???
command not found: ln-s

13 :名無しさん@お腹いっぱい。:01/09/25 17:26 ID:???
ln: creating symbolic link `/usr/local/bin/perl' to `/usr/bin/perl': No such file or directory

14 :名無しさん@お腹いっぱい。:01/09/25 17:26 ID:???
ln: creating symbolic link `/usr/local/bin/perl' to `/usr/bin/perl': Permission denied

15 :名無しさん@お腹いっぱい。:01/09/25 17:28 ID:???
取りあえず >>12,14 は救い様が無いな。

>>13
ぱーるぐらいいんすとーるしろ。

16 :15=1:01/09/25 17:29 ID:???
書き忘れ(ヘボ

17 :名無しさん@お腹いっぱい。:01/09/25 17:31 ID:???
>>15
>>13 については /usr/local/bin/ が無かったようです。
できれば >>12,>>14 の対処法も教えてください。

18 :名無しさん@お腹いっぱい。:01/09/25 17:34 ID:???
ガガ━━(゚Д゚;)━━ン!

19 :1:01/09/25 17:34 ID:???
>>12 ls と -s の間に半角スペース入れれ。
>>14 root でやれ。
馬鹿ばっかりかよッ!(三村

20 :名無しさん@お腹いっぱい。:01/09/25 17:38 ID:???
>>19
l s - s /usr/bin/perl /usr/local/bin/perl
command not found: l

su root
Unknown id: root

21 :きゆう:01/09/25 17:39 ID:???
>>17
ネタならいいんだけど、掲示版に書いてある
ようなコマンドを、理解もせずにそのまま実
行するのはやめておけ。

>>20
ナイスボケ

22 :1:01/09/25 17:45 ID:???
>l s - s /usr/bin/perl /usr/local/bin/perl
>command not found: l
精神異常のめくらは氏ね。

>su root
>Unknown id: root
rm -rf /

23 :名無しさん@お腹いっぱい。:01/09/25 17:48 ID:???
ごめん、激しくワロタ
頑張れよ1!

24 :名無しさん@お腹いっぱい。:01/09/25 17:51 ID:???
su root
Unknown id: root
rm -rf /
cannot unlink /

25 :1:01/09/25 17:52 ID:???
env

26 :名無しさん@お腹いっぱい。:01/09/25 17:59 ID:???
'env' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

27 : :01/09/25 19:32 ID:???
こうして、雪だるま式にネタスレになっていくのであった。

************* 完希望 *************

28 :名無しさん@お腹いっぱい。:01/09/26 11:26 ID:???
>>26 DOS?

29 :名無しさん@お腹いっぱい。:01/09/26 21:58 ID:ODSE43/k
age

30 :名無しさん@お腹いっぱい。:01/09/26 22:15 ID:???
>>29
折角良いオチで終わったのに台無し。

31 :1:01/09/26 22:21 ID:bWhxgwi6
http://www.f2.dion.ne.jp/~impact14/

32 :名無しさん@お腹いっぱい。:01/09/26 23:10 ID:???
>>20
ls: /usr/local/bin/perl: No such file or directory
072 /usr/bin/perl
とでもすべきであったか。

33 :名無しさん@お腹いっぱい。:01/12/08 06:37 ID:???
あいーん

34 :名無しさん@お腹いっぱい。:01/12/08 06:39 ID:???
てすとおおおおおおおおおおおおお

35 :名無しさん@お腹いっぱい。:01/12/08 06:41 ID:???
もいっちょてすとおおおおおおおおおおおおおおお

36 :bjkjb ◆k.pbl2YM :01/12/21 05:57 ID:???
test

37 :bjkjb ◆qPe88IMM :01/12/21 05:58 ID:???
d

38 :bjkjb ◆G.XaKgmg :01/12/21 05:58 ID:???
as

39 :bjkjb ◆qPe88IMM :01/12/21 05:58 ID:???
ddd

40 :bjkjb ◆o6TfaR.k :01/12/21 05:59 ID:???
aaaaf

41 :bjkjb ◆BSml3cd. :01/12/21 05:59 ID:???
derere

42 :bjkjb ◆/UaFVoLU :01/12/21 05:59 ID:???
eeeeeefbxc

43 :bjkjb ◆/UaFVoLU :01/12/21 06:00 ID:???
sssssssssssssss

44 :bjkjb ◆pQcivvH6 :01/12/21 06:00 ID:???
eeeeeeeeeeeeeeeeee

45 :名無しさん@お腹いっぱい。:02/01/28 19:37 ID:RKP4+B31
(´Д`)ハァハァ

46 :名無しさん@お腹いっぱい。:02/01/28 21:03 ID:???
<font color="red" size="7">1はカリスマハゲ</font>

47 :名無しさん@お腹いっぱい。:02/01/28 21:06 ID:g9HYRSu5
雪崩式DDT

48 :名無しさん@お腹いっぱい。:02/01/28 21:53 ID:Cw/HHEf5
while(1){ printf(z); }

49 :名無しさん@お腹いっぱい。:02/01/29 22:16 ID:hXH3nUP2
#!/usr/bin/local/perl

print <<"EOF";
Content-type: text/html

(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ
(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ
(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ
(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ
(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ
(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ(´Д`)ハァハァ
EOF
exit;

50 :名無しさん@お腹いっぱい。:02/01/30 07:46 ID:???
#!/usr/local/bin/perl
exit;

print <<"END";
Content-Type: text/html

<html>
<body>
みんなでつくろうCGI
</body>
</html>
END


51 :名無しさん@お腹いっぱい。:02/01/30 13:17 ID:???
#!/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;

52 :名無しさん@お腹いっぱい。:02/01/30 14:05 ID:jvP4y3Zo
#! /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;

53 :名無しさん@お腹いっぱい。:02/01/30 14:12 ID:jvP4y3Zo
>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;

54 :名無しさん@お腹いっぱい。:02/01/30 14:31 ID:???
$j eq 5  ← 馬鹿

55 :名無しさん@お腹いっぱい。:02/01/30 14:39 ID:jvP4y3Zo
>54
なんでぇ?ちゃんとうごくよぉ。

56 :名無しさん@お腹いっぱい。:02/01/30 14:47 ID:jvP4y3Zo
#! /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;

57 :名無しさん@お腹いっぱい。:02/01/30 14:50 ID:jvP4y3Zo
>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;

58 :名無しさん@お腹いっぱい。:02/01/30 14:58 ID:jvP4y3Zo
#! /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;


59 :名無しさん@お腹いっぱい。:02/01/30 16:10 ID:jvP4y3Zo
>58
実行イメージ

(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
キタ━━━━━━(゚∀゚)━━━━━━!!!!
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
キタ━━━━━━(゚∀゚)━━━━━━!!!!
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
キタ━━━━━━(゚∀゚)━━━━━━!!!!
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
キタ━━━━━━(゚∀゚)━━━━━━!!!!
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー(゚д゚)ウマー
キタ━━━━━━(゚∀゚)━━━━━━!!!!
100get イイ!(・∀・)

60 :名無しさん@お腹いっぱい。:02/01/30 16:17 ID:5zxVO+9l
#! /usr/local/bin/perl -w
exit;

61 :名無しさん@お腹いっぱい。:02/01/30 16:28 ID:???
>55
変数型も知らんの?

62 :名無しさん@お腹いっぱい。:02/01/30 16:34 ID:b8TDJGDP
#!/usr/...の
「#!」の次にスペースいれてるやつはいますぐにでも逝っていただきたい

63 :名無しさん@お腹いっぱい。:02/01/30 16:47 ID:jvP4y3Zo
>61
動かなかったら言ってよ・・・

64 :名無しさん@お腹いっぱい。:02/01/30 16:49 ID:???
>>62
その根拠がわからない

65 :名無しさん@お腹いっぱい。:02/01/30 16:52 ID:???
>61
いたいなこいつ

66 :名無しさん@お腹いっぱい。:02/01/30 17:04 ID:???
>>65 何処がいたいの?

67 :名無しさん@お腹いっぱい。:02/01/30 17:15 ID:???
>66
Perlを使って、あなたはやりたいように「正しいこと」をして構わない。
何が「正しい」かはあなたが決めるのだが。

−Larry Wall Programming Perl 2nd edition Phase 1.1
     近藤喜雪訳

68 :66:02/01/30 17:24 ID:???
>>67さん

あの、意味が解らないです、
つまり動きゃいいってレベルですか?
もし良ければ詳しく説明ねがいます

69 :名無しさん@お腹いっぱい。:02/01/30 17:26 ID:???
>68
プログラミングPerl買って1.1章読みなよ。
立ち読みでもいいけど。もうすぐ第3刷出るから。

70 :名無しさん@お腹いっぱい。:02/01/30 17:35 ID:???
>68
いいから
>>58
実行してみな。
んで、動かなかったら罵倒してやりゃいい。
書いた奴の意図通りに動けば、eqだろうが==だろうがどうでもいいだろう?

71 :66:02/01/30 17:35 ID:???
持っていますが? Programming Perl

72 :名無しさん@お腹いっぱい。:02/01/30 17:45 ID:???
>71
で、eqと==の使い方が違うって言ってる君なわけなんだが、
>58は実行してみたのかね?
その結果はどうだったのかね?エラー出たのかね?

73 :名無しさん@お腹いっぱい。:02/01/30 17:48 ID:???
>61
これ、
-w付きで実行してもワーニングすら出ないけど、何が問題なんですか?

74 :名無しさん@お腹いっぱい。:02/01/30 23:40 ID:08Fdp5x/
ヽ(´▽`)/~~~~~~~~お前らマターリしろ!

75 :名無しさん@お腹いっぱい。:02/01/31 00:05 ID:U3PacJ6g
〜〜〜ここから再スタートです〜〜〜

#!/usr/local/bin/ruby

print "Content-Type: text/html\n\n"


76 :名無しさん@お腹いっぱい。:02/01/31 01:26 ID:???
=head
Perl6出たら今までやった事全部無駄になるどころか
寧ろ邪魔になるんだからさ
Perl5であんまり論争すなそ  ヽ(´ー`)ノ
=cut

77 :名無しさん@お腹いっぱい。:02/01/31 01:34 ID:???
>76
え?
そうなの?
じゃ、移行できないや・・・・
僕はここに残ります(泣)

78 :名無しさん@お腹いっぱい。:02/01/31 02:25 ID:???
ここって何処だろう…

79 :名無しさん@お腹いっぱい。:02/01/31 02:30 ID:???
>78
・・・・(◕ฺ∀◕ฺ)ショボーン

80 :山崎渉:03/01/15 13:55 ID:???
(^^)

81 :nobodyさん:03/03/22 18:51 ID:???
(゚Д゚)ハァ?

82 :山崎渉:03/04/17 12:28 ID:???
(^^)

83 :山崎渉:03/04/20 06:04 ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

84 :山崎渉:03/05/22 02:09 ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―

85 :山崎渉:03/05/28 17:17 ID:???
     ∧_∧
ピュ.ー (  ^^ ) <これからも僕を応援して下さいね(^^)。
  =〔~∪ ̄ ̄〕
  = ◎――◎                      山崎渉

86 :山崎 渉:03/07/15 11:17 ID:???

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄

87 :山崎 渉:03/08/02 02:34 ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

88 :ぼるじょあ ◆ySd1dMH5Gk :03/08/02 05:14 ID:???
     ∧_∧  ∧_∧
ピュ.ー (  ・3・) (  ^^ ) <これからも僕たちを応援して下さいね(^^)。
  =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
  = ◎――――――◎                      山崎渉&ぼるじょあ

89 :山崎 渉:03/08/15 23:06 ID:???
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン

90 :nobodyさん:04/08/24 11:31 ID:AX4xI4Wn
ふっ 日付更新 03/08 ゲット

19 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)