【質問OK】IDにCGI が出るまでの

[0001 Perl が好き 03/07/02 02:59 ID:g3RHDSaJ]

#!/usr/local/bin/perl
while (1) {
print "ID にCGI が出るまで頑張りましょう。", "\n";
print "百戦錬磨のWEBプログラマーなら簡単にできるはず。", "\n";
print "質問にも答えます。", "\n";
}
#お約束
#サーバーサイドプログミングのことならドンと来い。
# 配布中止／配布元不明スクリプトが欲しい人はダウンロード板へ
#http://tmp.2ch.net/download/
# JavaScript、VBScript等クライアントサイドの話題はWeb製作板へ
#http://pc2.2ch.net/hp/

[0002 nobodyさん 03/07/02 03:00 ID:???]

exit;

[0003 nobodyさん 03/07/02 04:45 ID:???]

1;

[0004 nobodyさん 03/07/02 11:31 ID:???]

die ;

[0005 nobodyさん 03/07/03 11:48 ID:???]

#終了

[0006 nobodyさん 03/07/04 21:07 ID:???]

>>5
while (1) {
print "ID にCGI が出るまで頑張りましょう。", "\n";
print "百戦錬磨のWEBプログラマーなら簡単にできるはず。", "\n";
print "質問にも答えます。", "\n";

last; # 抜ける
}

[0007 nobodyさん 03/07/04 23:01 ID:???]

goto >>1;

[0008 nobodyさん 03/07/05 18:37 ID:???]

>>7

print "必死だな（藁\n" if ( >>1 == >>7 );