Kawa.netxp ヤッヒョイ プログラム - yahhyoi.cgi

「ヤッヒョイ」SEOコンテスト参加ページを作ってみました。
このページへのトラックバックは歓迎です!

ヤッヒョイ プログラム - yahhyoi.cgi

コンテンツがないといけない気がしたので、適当につけてみます。

#!/usr/bin/perl

use strict;
use KCatch;

print "Content-Type: text/html; charset=Shift_JIS\n\n";
my $loop = ( $ENV{QUERY_STRING} =~ /(?:^|&)loop=(.*?)(?:&|$)/s )[0] || 1;

for( my $i = 1; $i <= $loop; $i++ ) {
	print $i, "\x83\x84\x83\x62\x83\x71\x83\x87\x83\x43<br>\n";
}

ブラウザに「ヤッヒョイ」と表示するだけの CGI です。面白くもありません。
URL で引数『?loop=100』をつければ、100回表示されます。
何も面白くはありません。 [引数なし版] [引数100版]

関連ページ

コメントはこちらへ

このページへのトラックバック このエントリーを含むブックマーク

このページのURL:http://www.kawa.net/track/ceo/yahhyoi.html
トラックバックURL:http://www.kawa.net/service/tb/ajaxtb.cgi/track/ceo/yahhyoi.html

Kawa.netxp © Copyright 2004 Yusuke Kawasaki