雪だるま式CGI

**名無しさん＠お腹いっぱい。** · 01/09/24 16:56

さぁみんな,このスクリプトを雪だるま式ですばらしいものにしよう。

#!/usr/local/bin/perl

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

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

**名無しさん＠お腹いっぱい。** · 01/09/24 17:25

いや</html>って。。。終わってるやん

01/09/24 17:42

#!/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>";

01/09/24 17:43

@ -> \@

**マジレスさん** · 01/09/24 18:52

>>3
同じメアド何個も貼っても起動するウィンドウは１つだから意味内。

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

**名無しさん＠お腹いっぱい。** · 01/09/24 22:16

$| = 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++;}

**名無しさん＠お腹いっぱい。** · 01/09/24 23:32

<?php
if($url=~/2ch/){print "（´Д｀；）";}
?>

**名無しさん＠お腹いっぱい。** · 01/09/25 01:24

雪だるま式は借金だけにしとけ

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

**名無しさん＠お腹いっぱい。** · 01/09/25 16:18

no such file or directory: /usr/local/bin/perl

1 · 01/09/25 17:16

>>9
ln -s /usr/bin/perl /usr/local/bin/perl

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

１ · 01/09/25 17:22

全くだ

**名無しさん＠お腹いっぱい。** · 01/09/25 17:23

command not found: ln-s

**名無しさん＠お腹いっぱい。** · 01/09/25 17:26

ln: creating symbolic link `/usr/local/bin/perl' to `/usr/bin/perl': No such file or directory

**名無しさん＠お腹いっぱい。** · 01/09/25 17:26

ln: creating symbolic link `/usr/local/bin/perl' to `/usr/bin/perl': Permission denied

**名無しさん＠お腹いっぱい。** · 01/09/25 17:28

取りあえず >>12,14 は救い様が無いな。

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

**15=1** · 01/09/25 17:29

書き忘れ(ﾍﾎﾞ

**名無しさん＠お腹いっぱい。** · 01/09/25 17:31

>>15
>>13 については /usr/local/bin/ が無かったようです。
できれば >>12,>>14 の対処法も教えてください。

**名無しさん＠お腹いっぱい。** · 01/09/25 17:34

ｶﾞｶﾞ━━(ﾟДﾟ;)━━ﾝ!

1 · 01/09/25 17:34

>>12 ls と -s の間に半角スペース入れれ。
>>14 root でやれ。
馬鹿ばっかりかよッ！（三村

**名無しさん＠お腹いっぱい。** · 01/09/25 17:38

>>19
l s - s /usr/bin/perl /usr/local/bin/perl
command not found: l

su root
Unknown id: root

**きゆう** · 01/09/25 17:39

>>17
ネタならいいんだけど、掲示版に書いてある
ようなコマンドを、理解もせずにそのまま実
行するのはやめておけ。

>>20
ナイスボケ

1 · 01/09/25 17:45

>l s - s /usr/bin/perl /usr/local/bin/perl
>command not found: l
精神異常のめくらは氏ね。

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

**名無しさん＠お腹いっぱい。** · 01/09/25 17:48

ごめん、激しくワロタ
頑張れよ１!

**名無しさん＠お腹いっぱい。** · 01/09/25 17:51

su root
Unknown id: root
rm -rf /
cannot unlink /

1 · 01/09/25 17:52

env

**名無しさん＠お腹いっぱい。** · 01/09/25 17:59

'env' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチファイルとして認識されていません。

01/09/25 19:32

こうして、雪だるま式にネタスレになっていくのであった。

＊＊＊＊＊＊＊＊＊＊＊＊＊完希望＊＊＊＊＊＊＊＊＊＊＊＊＊

**名無しさん＠お腹いっぱい。** · 01/09/26 11:26

>>26 DOS?

**名無しさん＠お腹いっぱい。** · 01/09/26 21:58

age

**名無しさん＠お腹いっぱい。** · 01/09/26 22:15

>>29
折角良いオチで終わったのに台無し。

1 · 01/09/26 22:21

http://www.f2.dion.ne.jp/~impact14/

**名無しさん＠お腹いっぱい。** · 01/09/26 23:10

>>20 は
ls: /usr/local/bin/perl: No such file or directory
072 /usr/bin/perl
とでもすべきであったか。

**名無しさん＠お腹いっぱい。** · 01/12/08 06:37

あいーん

**名無しさん＠お腹いっぱい。** · 01/12/08 06:39

てすとおおおおおおおおおおおおお

**名無しさん＠お腹いっぱい。** · 01/12/08 06:41

もいっちょてすとおおおおおおおおおおおおおおお

**bjkjb** ◆k.pbl2YM · 01/12/21 05:57

test

**bjkjb** ◆qPe88IMM · 01/12/21 05:58

**bjkjb** ◆G.XaKgmg · 01/12/21 05:58

**bjkjb** ◆qPe88IMM · 01/12/21 05:58

ddd

**bjkjb** ◆o6TfaR.k · 01/12/21 05:59

aaaaf

**bjkjb** ◆BSml3cd. · 01/12/21 05:59

derere

**bjkjb** ◆/UaFVoLU · 01/12/21 05:59

eeeeeefbxc

**bjkjb** ◆/UaFVoLU · 01/12/21 06:00

sssssssssssssss

**bjkjb** ◆pQcivvH6 · 01/12/21 06:00

eeeeeeeeeeeeeeeeee

**名無しさん＠お腹いっぱい。** · 02/01/28 19:37

(´Д｀)ﾊｧﾊｧ

**名無しさん＠お腹いっぱい。** · 02/01/28 21:03

1はカリスマハゲ

**名無しさん＠お腹いっぱい。** · 02/01/28 21:06

雪崩式DDT

**名無しさん＠お腹いっぱい。** · 02/01/28 21:53

while(1){ printf(z); }

**名無しさん＠お腹いっぱい。** · 02/01/29 22:16

#!/usr/bin/local/perl

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

(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ
(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ
(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ
(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ
(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ
(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ(´Д｀)ﾊｧﾊｧ
EOF
exit;

**名無しさん＠お腹いっぱい。** · 02/01/30 07:46

#!/usr/local/bin/perl
exit;

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

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

**名無しさん＠お腹いっぱい。** · 02/01/30 13:17

#!/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;

**名無しさん＠お腹いっぱい。** · 02/01/30 14:05

#! /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 " \n"; $j = 0; }
 else { ++$j; }
}
exit;

**名無しさん＠お腹いっぱい。** · 02/01/30 14:12

>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 " \n"; $j = 0; }
 else { ++$j; }
}
exit;

**名無しさん＠お腹いっぱい。** · 02/01/30 14:31

$j eq 5　　←　馬鹿

**名無しさん＠お腹いっぱい。** · 02/01/30 14:39

>54
なんでぇ？ちゃんとうごくよぉ。

**名無しさん＠お腹いっぱい。** · 02/01/30 14:47

#! /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 " \n"; $j = 0; }
 if ($k eq 19) { print "ｷﾀ━━━━━━（ﾟ∀ﾟ）━━━━━━!!!! \n"; $k = 0; }
 else { ++$j; ++$k; }
}
exit;

**名無しさん＠お腹いっぱい。** · 02/01/30 14:50

>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 " \n"; $j = 0; }
 else { ++$j;}
 if ($k eq 19) { print "ｷﾀ━━━━━━（ﾟ∀ﾟ）━━━━━━!!!! \n"; $k = 0; }
 else { ++$k; }
}
exit;

**名無しさん＠お腹いっぱい。** · 02/01/30 14:58

#! /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 " \n"; $j = 0; }
 else { ++$j;}
 if ($k eq 19) { print "ｷﾀ━━━━━━（ﾟ∀ﾟ）━━━━━━!!!! \n"; $k = 0; }
 else { ++$k; }
}
if ($i eq 100) { print "100get ｲｲ！（・∀・）"; }
exit;

**名無しさん＠お腹いっぱい。** · 02/01/30 16:10

>58
実行イメージ

(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
ｷﾀ━━━━━━（ﾟ∀ﾟ）━━━━━━!!!!
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
ｷﾀ━━━━━━（ﾟ∀ﾟ）━━━━━━!!!!
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
ｷﾀ━━━━━━（ﾟ∀ﾟ）━━━━━━!!!!
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
ｷﾀ━━━━━━（ﾟ∀ﾟ）━━━━━━!!!!
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ(ﾟдﾟ)ｳﾏｰ
ｷﾀ━━━━━━（ﾟ∀ﾟ）━━━━━━!!!!
100get ｲｲ！（・∀・）

**名無しさん＠お腹いっぱい。** · 02/01/30 16:17

#! /usr/local/bin/perl -w
exit;

**名無しさん＠お腹いっぱい。** · 02/01/30 16:28

>55
変数型も知らんの?