【ゲームキャラの名前】

[過去ﾛｸﾞ] 【ゲームキャラの名前】 (441ﾚｽ)
上下前次1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞
抽出解除必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞あぼーん

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

383: .cgiバージョン [sage] 2006/05/08(月) 03:00:57 ID:wYmKyqSP

#!/usr/local/bin/perl
# CGIとして使うときは↑のパスを鯖に合わせてね
# ローマ字読みでおｋ
# ランダムに語呂合わせするときは「# ここ」の行を「# これ」の行の内容に変えて
# @moji2と$mojisu2の行を消すといいよ

# 文字数　（最大文字数　-　4文字をrandの次の部分に挿入[このままなら10文字まで]）
$name00 = int( rand 4)+4;
# 奇数文字目
@moji1 = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
$mojisu1 = 26; # @moji1の文字数を数えて入れる
# 偶数文字目
@moji2 = ('a','i','u','e','o');
$mojisu2 = 5; # @moji2の文字数を数えて入れる

##ここから下はいじんない方がいいです###############################################################################
@name01 = ('','');
print "Content-Type: text/html;charset=Shift_JIS\n\n";
print "<html><head><title>エセ名前生成機</title></head>\n";
print "<body>\n<p>";
for ( $i=0; $i<=$name00; $i++) {
$fla = $i % 2;
if ($fla == 0){
$name01[$i] = $moji1[int( rand $mojisu1)]; # これ
}
else{
$name01[$i] = $moji2[int( rand $mojisu2)]; # ここ
}

print $name01[$i];
}
print "</p>\n</body>\n</html>";

http://mevius.5ch.net/test/read.cgi/gamedev/1022993892/383

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.016s