1 :
名無しさん@お腹いっぱい。:
さぁみんな,このスクリプトを雪だるま式ですばらしいものにしよう。
#!/usr/local/bin/perl
print <<"END";
Content-Type: text/html
<html>
<body>
みんなでつくろうCGI
</body>
</html>
END
いや</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:
[email protected]" width=1 height=1>\n| while $n--;
print "</body></html>";
4 :
:01/09/24 17:43 ID:???
@ -> \@
>>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++;}
7 :
名無しさん@お腹いっぱい。:01/09/24 23:32 ID:xfUVKO2s
<?php
if($url=~/2ch/){print "(´Д`;)";}
?>
雪だるま式は借金だけにしとけ
--------------------END-----------------------
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 :
1:01/09/25 17:22 ID:???
全くだ
command not found: ln-s
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 ぱーるぐらいいんすとーるしろ。
16 :
15=1:01/09/25 17:29 ID:???
書き忘れ(ヘボ
ガガ━━(゚Д゚;)━━ン!
19 :
1:01/09/25 17:34 ID:???
>>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
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 /
ごめん、激しくワロタ
頑張れよ1!
su root
Unknown id: root
rm -rf /
cannot unlink /
25 :
1:01/09/25 17:52 ID:???
env
'env' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
27 :
:01/09/25 19:32 ID:???
こうして、雪だるま式にネタスレになっていくのであった。
************* 完希望 *************
29 :
名無しさん@お腹いっぱい。:01/09/26 21:58 ID:ODSE43/k
age
31 :
1:01/09/26 22:21 ID:bWhxgwi6
>>20 は
ls: /usr/local/bin/perl: No such file or directory
072 /usr/bin/perl
とでもすべきであったか。
あいーん
てすとおおおおおおおおおおおおお
もいっちょてすとおおおおおおおおおおおおおおお
test
d
as
ddd
aaaaf
derere
eeeeeefbxc
sssssssssssssss
eeeeeeeeeeeeeeeeee
45 :
名無しさん@お腹いっぱい。:02/01/28 19:37 ID:RKP4+B31
(´Д`)ハァハァ
<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;
#!/usr/local/bin/perl
exit;
print <<"END";
Content-Type: text/html
<html>
<body>
みんなでつくろうCGI
</body>
</html>
END
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;
$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;
>55
変数型も知らんの?
62 :
名無しさん@お腹いっぱい。:02/01/30 16:34 ID:b8TDJGDP
#!/usr/...の
「#!」の次にスペースいれてるやつはいますぐにでも逝っていただきたい
63 :
名無しさん@お腹いっぱい。:02/01/30 16:47 ID:jvP4y3Zo
>61
動かなかったら言ってよ・・・
>61
いたいなこいつ
>66
Perlを使って、あなたはやりたいように「正しいこと」をして構わない。
何が「正しい」かはあなたが決めるのだが。
−Larry Wall Programming Perl 2nd edition Phase 1.1
近藤喜雪訳
68 :
66:02/01/30 17:24 ID:???
>>67さん
あの、意味が解らないです、
つまり動きゃいいってレベルですか?
もし良ければ詳しく説明ねがいます
>68
プログラミングPerl買って1.1章読みなよ。
立ち読みでもいいけど。もうすぐ第3刷出るから。
>68
いいから
>>58 実行してみな。
んで、動かなかったら罵倒してやりゃいい。
書いた奴の意図通りに動けば、eqだろうが==だろうがどうでもいいだろう?
71 :
66:02/01/30 17:35 ID:???
持っていますが? Programming Perl
>71
で、eqと==の使い方が違うって言ってる君なわけなんだが、
>58は実行してみたのかね?
その結果はどうだったのかね?エラー出たのかね?
>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"
=head
Perl6出たら今までやった事全部無駄になるどころか
寧ろ邪魔になるんだからさ
Perl5であんまり論争すなそ ヽ(´ー`)ノ
=cut
>76
え?
そうなの?
じゃ、移行できないや・・・・
僕はここに残ります(泣)
ここって何処だろう…
>78
・・・・(◕ฺ∀◕ฺ)ショボーン
80 :
山崎渉:03/01/15 13:55 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:???
∧_∧
( ^^ )< ぬるぽ(^^)
∧_∧ ∧_∧
ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。
=〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
= ◎――――――◎ 山崎渉&ぼるじょあ
89 :
山崎 渉:03/08/15 23:06 ID:???
(⌒V⌒)
│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン
90 :
nobodyさん:04/08/24 11:31 ID:AX4xI4Wn
ふっ 日付更新 03/08 ゲット
91 :
nobodyさん:2005/12/17(土) 14:49:11 ID:zpDucwGP
05/12ゲット
92 :
nobodyさん:2007/07/12(木) 23:05:39 ID:N1ZCMAlq
ばかばっか
93 :
:2007/12/13(木) 19:28:00 ID:???
94 :
◆uDTQejz.Pc :2009/02/23(月) 07:30:34 ID:WoV6r5VA
テスト
興味深い
98 :
nobodyさん:2012/08/04(土) 05:25:36.21 ID:/ozLj1SW
<a name="make2">test</a>
99 :
nobodyさん:
★2ch勢いランキングサイトリスト★
◎ +ニュース
・ 2NN
・ 2chTimes
◎ +ニュース新着
・ 2NN新着
・ Headline BBY
◎ +ニュース他
・ Desktop2ch
・ 記者別一覧
◎ 全板
・ 全板縦断勢いランキング
・ スレッドランキング総合ランキング
◎ 実況込み
・ 2勢
・ READ2CH
・ i-ikioi
※ 要サイト名検索